Question

excel 中如何使用vlookup查询后，将结果自动添加为被查询值的批注，需要借助宏来实现么

Answer 1

这样？

这是示例的代码，根据自己需要修改

Sub 添加批注()

Dim n
n = Cells(Rows.Count, "C").End(3).Row

For x = 1 To Cells(Rows.Count, "A").End(3).Row
For y = 1 To n

If Cells(y, 3) = Cells(x, 1) Then

Dim b As String
b = Cells(y, 4)

With Range("a" & x)
   .ClearComments
   .AddComment
   .Comment.Text Text:=b
   .Comment.Shape.TextFrame.AutoSize = True
End With
End If

Next y
Next x

End Sub