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