VBA案例精选 复制单元格的批注

代码运行结果：

代码截图：

代码文本：

Public Sub 技巧()

Dim myRange1 As Range

Dim myRange2 As Range

Columns("D:D").Clear        'D列清空

Set myRange1 = Range("A1:A7")     '指定要复制的单元格区域

Set myRange2 = Range("D1")        '指定要复制的位置（左上角单元格）

myRange1.Copy              '复制myRange1

myRange2.PasteSpecial Paste:=xlPasteComments    '复制批注

Set myRange1 = Nothing

Set myRange2 = Nothing

End Sub

写在不是最后的最后：

复制单元格的批注，复制单元格内容，复制等操作有异曲同工之妙，亲自动手操作，远比看一看要记得更牢靠。

【你们百度三天  不过我随口一句】
郑广学老师独家逐行手写沉浸式案例教学法 知其然更知其所以然
全套教程包含 VBA175例+函数操作408例+代码助手VIP
+100期直播回放
【268元进1000人高手VBA永久答疑群+880网站VIP】
买课咨询请加微信EXCEL880B

点击进入 郑广学老师Excel教程免费学7天 !

---

扫描二维码