求大神指点VBA代码，如何将内容列中的文字，自动添加批注至奖惩列，同一行的单元格内。

关键字：大神 更新时间：2019-03-30 23:40:41 185次访问

Sub 插入批注()
Dim n%
n = 2
Range("B:B").ClearComments ' 删除B列的批注
Do
Cells(n, 2).AddComment  '插入批注
Cells(n, 2).Comment.Text Text:=Cells(n, 3).Value '编辑批注内容
n = n + 1
Loop Until Cells(n, 1) = ""
End Sub

相关标签：大神