循環遍歷選定范圍內的奇數單元格

Question

我在單行中選擇了一個范圍，並且有一個代碼，我想循環遍歷該范圍內的每個奇數單元格。 假設范圍是 20 個單元格。 我希望循環對單元格編號起作用。 1,3,5 等等。 哪個循環最好，語法是什么？

Answer 1

嘗試這個！

Sub SkipColumn()

Dim ColNum As Integer, RowNum As Integer

RowNum = 1

 For ColNum = 1 To 26 Step 2

    If Cells(RowNum, ColNum).Value = "" Then
    
        Cells(RowNum, ColNum).Value = "Hello"
        
    End If

 Next ColNum

End Sub

Answer 2

在 For...Next 循環中使用 Step

編碼

Option Explicit

Sub EveryOther()
    
    Dim ws As Worksheet: Set ws = ActiveSheet ' improve!
    
    Dim rg As Range: Set rg = ws.Range("D1:Z1")
    ' Or:
    'Set rg = Selection
    'Set rg = Selection.Rows(1)
    
    Dim c As Long
    
    Debug.Print "ColumnIndex", "ColumnAddress"
    
    For c = 1 To rg.Columns.Count Step 2 ' every other cell
        ' Do your thing, e.g.:
        Debug.Print c, rg.Columns(c).Address(0, 0)
    Next c
    
End Sub

立即窗口中的結果（ Ctrl + G ）

ColumnIndex   ColumnAddress
 1            D1
 3            F1
 5            H1
 7            J1
 9            L1
 11           N1
 13           P1
 15           R1
 17           T1
 19           V1
 21           X1
 23           Z1