Merge & zentriere alle 2 Zellen in einem Bereich in VBA

Question

Ich versuche herauszufinden, wie alle 2 Zellen in einer Spalte zusammengeführt werden. Ich habe das Gefühl, dass ich es überbewerte. Meine Wenn-Aussage ist nicht nötig, ich habe nur herumgespielt. Hier ist der Code:

Dim RgToMerge As String 

    For i = 1 To ActiveSheet.Cells(Rows.Count, 3).End(xlUp).row 
    RgToMerge = "" 
    If Cells(i, 3) = "" Then 
    RgToMerge = "$C$" & i & ":$C$" & i + 1 
    With range(RgToMerge) 
     .Merge 
     .HorizontalAlignment = xlCenterAcrossSelection 
     .VerticalAlignment = xlCenter 

    End With 
    Else 
    End If 
Next I 
End sub 

Answer 1

die if-statement herausnehmen und machen diese subtilen Veränderungen

Dim RgToMerge As Range 


For i = 3 To ActiveSheet.Cells(Rows.Count, 3).End(xlUp).Row Step 2 

    Set RgToMerge = Range(Cells(i, 3), Cells(i + 1, 3)) 
    With RgToMerge 
     .Merge 
     .HorizontalAlignment = xlCenterAcrossSelection 
     .VerticalAlignment = xlCenter 
    End With 

Next i 

Schritt 2 wird Schleife durch jede zweite Zeile. Schritt 3 würde jede dritte Zeile usw. machen.