jede zweite Zelle in Excel VBA

Question

Auswahl Ich versuche, die markierten Zellen

auszuwählen.

Der Bereich erstreckt sich von A2 bis EL2 also 72 insgesamt.

Ich denke, ich muss einen Vektor erstellen, der [2,4,6 ...] ist, dann verwenden Sie dieses Ergebnis, um die Zellen auszuwählen.

Derzeit mein Code funktioniert nicht und ist ...

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

Ich bin fest und brauche Hilfe bitte.

Answer 1

So etwas sollte helfen, vielleicht nicht der einfachste Weg sein ..

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

Dies funktionieren würde:

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

In einfachen Worten, verwenden Sie eine Schleife:

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