選擇Excel VBA中的第二個單元格

Question

我正在嘗試選擇突出顯示的單元格

。

范圍從A2擴展到EL2，因此總共為72。

我想我需要創建一個[2,4,6 ...]的向量，然后使用該結果選擇單元格。

目前，我的代碼無法正常工作，正在...

range(cells(2, 2*(1 To 72))).select

我被困住了，請幫忙。

Answer 1

像這樣的事情應該有所幫助，可能不是最簡單的方法。

Sub sel()

Dim l As Long
Dim r As Range

For l = 2 To 22 Step 2
    If r Is Nothing Then
        Set r = Cells(2, l)
    Else
        Set r = Union(r, Cells(2, l))
    End If
Next l

r.Select

End Sub

Answer 2

這將工作：

Dim rng_exp As Range, x As Integer
Set rng_exp = Cells(2, 2)

For x = 2 To 72
    Set rng_exp = Application.Union(rng_exp, Cells(2, 2 * (x)))
Next

rng_exp.Select

Answer 3

簡單來說，使用循環：

Sub dural()
    Dim r As Range

    Set r = Range("B2")
    For i = 4 To 142 Step 2
        Set r = Union(r, Cells(2, i))
    Next i
    r.Select
End Sub