代码运行结果：
代码截图：
代码文本：
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
写在不是最后的最后：
复制单元格的批注，复制单元格内容，复制等操作有异曲同工之妙，亲自动手操作，远比看一看要记得更牢靠。
VBA编辑神器放送
VBA编程神器 VBA代码助手 可以极大提高编程速度，降低编程门槛欢迎使用
私信回复 代码助手 即可获得
VBA密码破解 代码混淆保护加密 代码库输入提示
本提示数据库可完全自定义!
本人微信公众号 EXCEL880 每天分享Excel实战技术
私信回复 教程 可领取7天免费教程
