在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