选择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