在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步每隔三行做一次，等等。