選擇在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