excel批量添加批注。哪位大神给个把B列添加为A列批注的VBA代码

Question

如题所述

Answer 1

Sub 加批注()
Dim r As Long
Dim i As Long
On Error Resume Next

    r = [b65535].End(xlUp).Row
    For i = 1 To r
        Cells(i, 1).AddComment
        Cells(i, 1).Comment.Text Cells(i, 2).Value
    Next
    

End Sub

追问

太流弊了，谢谢