利用VBA在excel中批量添加备注

excel表中有4列数据，给第4列添加批注，批注的内容为第4列的数据，如何批量添加呢？

按Alt+f11打开VBA编辑器,加入以下代码

Sub 添加批注()
Dim t As String
For i = 1 To 10
t = Cells(i, 4)
Cells(i, 4).AddComment (t)
Next
End Sub