Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/excel/25.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Excel While循环中的自动增量变量_Excel_Vba - Fatal编程技术网
Fatal编程技术网
  • excel/
  • Excel While循环中的自动增量变量

Excel While循环中的自动增量变量

excel vba

Excel While循环中的自动增量变量,excel,vba,Excel,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 '<---he

我是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

子测试（）
作为字节的Dim i
i=2
而带有变量的（i
范围（“Hi，Hi:Ji，Mi:Pi”）
可以写成


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


其他人也一样

基本上
Range（“A1”）
可以写成
Range（“A”）和

此外，您不需要使用
。选择
执行操作。在大多数情况下，您可以直接使用对象。您可能需要查看