While循環中的自動遞增變量

Question

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

Answer 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