Visual Basic Excel For多个单元格中的循环如何使用范围内的计数器（“”）

Question

这就是我所拥有的，因此H后面必须跟单元格的编号，我想在这里使用计数器i，但它不起作用。 我究竟做错了什么？ :)

For i = 60 To 63

    Range("Hi").AddComment
    Range("Hi").Comment.Visible = False
    Range("Hi").Comment.Text Text:=""
    i = i + 1
    Range("Hi").Select
    i = i - 1
    Next
End Sub

Answer 1

用这个：

Range("H" & i)

在您编写时， "Hi"不使用变量i，因为您将其放在了引号中。

Answer 2

您需要这样做：

For i = 60 To 63

    Range("H" & i).AddComment
    Range("H" & i).Comment.Visible = False
    Range("H" & i).Comment.Text Text:=""
    i = i + 1
    Range("H" & i).Select
    i = i - 1
    Next
End Sub

&运算符在VBA中进行串联。

Answer 3

您应该这样格式化：

    For i = 60 To 63

        Range("H" & i).AddComment
        Range("H" & i).Comment.Visible = False
        Range("H" & i).Comment.Text Text:=""
        i = i + 1
        Range("H" & i).Select
        i = i - 1
    Next i
End Sub

原因是字母H是一个字符，而i是一个变量。 像Excel这样的双引号"Hi"任何内容都将读为一串文本。

当Excel读取引号之外的单词或字母i ，它将假定它是一个变量。 &字符将两者作为文本连接在一起。

这意味着每次循环运行时，Excel都将其读取为"H" and i ，并将其转换为“ H1”，“ H2”，“ H3”，...。“ H60”，并将其输入到Range()就像您正在寻找。

Answer 4

这样对您会更好吗？ 当i的值开始进入循环代码时，我总是遇到问题

For i = 60 To 63      
    With Range("H" & i)
        .Select 
        .AddComment     
        .Comment.Visible = False     
        .Comment.Text Text:=""  
    end with
Next 
End Sub