Question

excel 用VBA添加批注

A列是数字格式，K列是文本格式，把K列作为批注加到A列上。之前同事留下的code，希望大神帮忙看一下，run出来的错误显示的是“对象不支持该属性方法”。

Sub a()
For i% = 1 To [a65536].End(3).Row
If Range("A" &i) <> "" Then
Range("A" &i).AddCommentCStr(Range("K" &i).Value)
Range("A" &i).Comment.Visible = False
End If
Next i
End Sub

Answer 1

是因为你原本的单元格已经有了批注了，再添加就要报错，所以加一个判断，再则批注为文本应该用Text而不是Value，详细代码如下图

Answer 2

Range("A" &i).AddCommentCStr(Range("K" &i).Value)，改为
Range("A" &i).AddComment(Range("K" &i).Value)

Answer 3

感觉有个空格被偷吃了，是不是这行报错：
Range("A" &i).AddCommentCStr(Range("K" &i).Value)
下面这样修改试试看：
Range("A" &i).AddComment CStr(Range("K" &i).Value)