在单一单元格内插入批注-复制-选定区域-选择性粘贴(粘贴批注)
Sub Macro1()
On Error Resume Next
Dim r As Range
If Selection.Cells.Count > 0 Then
For Each r In Selection
r.Comment.Delete
r.AddComment
r.Comment.Visible = False
r.Comment.Text Text:="本单元格:" & r.Address & " of " & Selection.Address
Next
End If
End Sub