複数の文を使用してVBAで複数のセルグループをマージする

Question

今のコードでは、「列Dのセルのいずれかがこれらのワードと一致する場合」、 "私がしたいことは、列Dの2つのセルをマージすることです。上のセルは単語を持ち、下のセルは空白になります。私はまた、テーブルをインクリメンタルに3つのセルを1行にマージして、FからHの後にIをスキップしてからJ-Lをマージするようにしたいと思います。ここでのコードは次のとおりです。

Sub Merge_PlansourceCategories() 
Dim RgToMerge As String 


For i = 1 To ActiveSheet.Cells(Rows.Count, 4).End(xlUp).row 
    RgToMerge = "" 
    If Cells(i, 4) = "red" or cells (i, 4) = "blue" Then 
    RgToMerge = "$F$" & i & ":$H$" & i + 1   



    'for step loop to make this easier? 
    With range(RgToMerge) 
     .Merge 
     .HorizontalAlignment = xlCenterAcrossSelection 
     .VerticalAlignment = xlCenter 
    End With 

    End If 

Next i 

End Sub 

Answer 1

文字列としてRgToMergeを作成し、列名の文字を使用してもポイントは本当にありません。この

Sub Merge_PlansourceCategories() 
    For i = 1 To ActiveSheet.Cells(Rows.Count, 4).End(xlUp).Row 
     If Cells(i, 4) = "red" Or Cells(i, 4) = "blue" Then 
      For j = 1 To 2 
       With Range(Cells(i, j * 4 + 2), Cells(i, j * 4 + 4)) 
        .Merge 
        .HorizontalAlignment = xlCenterAcrossSelection 
        .VerticalAlignment = xlCenter 
       End With 
      Next j 
      With Range(Cells(i, 4), Cells(i + 1, 4)) 
       .Merge 
       .VerticalAlignment = xlCenter 
      End With 
     End If 
    Next i 
End Sub 

を試してみて、それが難しいインクリメントすることができます。