Question

下面是EXCEL的VBA代码，我想实现把批注为“A1入”的单元格的值改为“0”！求高人指点错误

sub macrol()dim r as rangfor each r in range("a1:iu140") on error RESUME NEXT if r.comment.text="A1入" then r.formulaR1C1="0"next end sub这段代码造成，根本没有批注的单元格也被变成0! 我知道是on error那里出了问题，但不知道怎么改
一楼的兄弟!照你那样写 就跳出 FOR EACH 循环了啊 不行哦

Answer 1

那这样就好了
sub macrol()
dim r as rang
On Error GoTo SSS
for each r in range("a1:iu140")
if r.comment.text="A1入" then r.formulaR1C1="0"
SSS:
next

end sub

Answer 2

Sub tt()
Dim Cell As Range
For Each Cell In Range("a1:b11").Cells
If Cell.Comment Is Nothing Then GoTo jump
If InStr(Cell.Comment.Text, "aa") > 0 Then Cell.ClearContents
jump:
Next
End Sub

范围啥的，自己再改下

Answer 3

a = r.Comment.Text
if a="A1入"

试试这样行不行

如果不行的话 应该是你的批注不是A1入" 而是 比如 "微软用户：A1入"