VBAで範囲内の2セルごとにマージ＆センター

Question

私はどのように2つのセルを1つの列にマージするかを考えようとしています。私はそれを考えすぎているように感じる。私のthen then文は必要ありません。私はただ遊んでいました。ここでは、コードは次のとおりです。

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では、3行おきなどが行われます。