在While循环中自动递增variables

我是vba的初学者，我想在所有行（201行）上添加1规则的脚本。

我的计数器是i ，我想在我的工作表中插入这个i自动增量

我不知道为什么我不能插入一个variables？

 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 

Answer 1

带variables的Range("Hi,Hi:Ji,Mi:Pi")可写为

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

其余的同样如此。

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

你也不需要使用。select执行一个动作。 在大多数情况下，您可以直接使用该对象。 你可能想看到这个