代码运行结果：

代码截图：

代码文本：

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

写在不是最后的最后：

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