在VBA中合併並居中每個2個單元格

Question

我想弄清楚如何合併列中的每個2個單元格。儘管我覺得我已經過度了。我的話如果沒有必要，我只是在玩耍。下面是代碼：

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

取出if-statement，使這些微妙的變化

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 

步驟通過每隔一行2將循環。第3步每隔三行做一次，等等。