【VBA】复制单元格批注
只复制单元格的批注该怎么操作呢?代码如下:
Public Sub 复制单元格批注() Dim range1 As range Dim range2 As range '清除G列 Columns("G:G").Clear Set range1 = range("A1:B4") '指定要复制的单元格区域 Set range2 = range("G1") '指定要复制的位置(左上角单元格 range1.Copy range2.PasteSpecial Paste:=xlPasteComments '只复制批注 '回收内存 Set range1 = Nothing Set range2 = Nothing End Sub
程序运行前
程序运行后
作者:奔跑的金鱼
声明:书写博客不易,转载请注明出处,请支持原创,侵权将追究法律责任
个性签名:人的一切的痛苦,本质上都是对自己无能的愤怒
如果觉得这篇文章对你有小小的帮助的话,记得在右下角点个“推荐”哦,博主在此感谢!