Excel单元格内容批量转入批注

如下，需要将右侧单元格中的内容批量写入左侧单元格的批注中，如何实现？

写了几行VBA可以快速实现，效果如下

VBA代码如下，如有需要的读者可以试试。