在While循环中自动增加变量

时间:2014-10-30 10:13:24

标签: excel excel-vba vba

我是vba的初学者,我想在所有行(201行)上添加1规则的脚本。

我的计数器为i,我希望在我的工作表中插入此i以自动增加

我不知道为什么我不能插入变量?

Sub test()
    Dim i As Byte
    i = 2

    While (i <= 202)
        Range("Hi,Hi:Ji,Mi:Pi").Select      '<--- insert my "i" here
        Range("Mi").Activate '<---here

        Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlNotEqual, _
        Formula1:="=$G$i" '< ---here

        Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority

        With Selection.FormatConditions(1).Interior
            .PatternColorIndex = xlAutomatic
            .Color = 192
            .TintAndShade = 0
        End With

        Selection.FormatConditions(1).StopIfTrue = False

        i = i + 1
    Wend
End Sub

1 个答案:

答案 0 :(得分:1)

带变量的

Range("Hi,Hi:Ji,Mi:Pi")可以写成

Range("H" & i & ",H" & i & ":J" & i & ",M" & i & ":P" & i)

其他类似。

基本上Range("A1")可以写成Range("A" & i)

此外,您无需使用.Select执行操作。在大多数情况下,您可以直接使用该对象。您可能希望看到THIS