Excel中自动填加批注？

Question

同一表中，如c列，c1中有文字，怎样在c2到cN的单元格中，只要输入内容(数字或文字)就自动填加c1单元格文字作为批注，谢谢！

Answer 1

给所自有满足条件的单元格添加批注
Sub 添加批注()
Dim I, J, X, Y As Long
Cells.ClearComments
X = ActiveCell.SpecialCells(xlLastCell).Row
Y = ActiveCell.SpecialCells(xlLastCell).Column
For I = 2 To X Step 2: For J = 1 To Y
Cells(I, J).Select
Selection.AddComment
Selection.Comment.Text Cells(I - 1, J) & vbCrLf & Cells(I, J)
Next J: Next I
End Sub