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