ダウンマージ列AとB

Question

Iのような下に空白の数の見出しの一連をマージする探しています：私はマクロテキストをマージし、中心に取り組ん有する

Header 1  Header1a 
Blank  Blank 
Blank  Blank 
Blank  Blank 
Header 2  Header 2a 
Blank  Blank 
Blank  Blank 
Header3  Header 3a 
Blank  Blank 
Blank  Blank 

しかし列 "A"に対してのみ機能します。

私はこれがクイックフィックスであると確信していますが、マクロをA列とB列に実行したいと思います。列Aと列Bを列ごとにマージしておきます。

サブRectangle1_Click（）

For i = 6 To Cells(65535, 1).End(xlUp).Row 
If IsEmpty(Cells(i, 1)) Then Range(Cells(i - 1, 1), Cells(i, 1)).Merge 
Next 

Range("C5:C2000").Select 
With Selection 
    .HorizontalAlignment = xlCenter 
    .VerticalAlignment = xlCenter 
    .WrapText = False 
    .Orientation = 0 
    .AddIndent = False 
    .IndentLevel = 0 
    .ShrinkToFit = False 
    .ReadingOrder = xlContext 
End With 

End Sub 

Answer 1

ただ、列2 を変更したり、1回の実行で両方の列を修正するために1から2に実行されている別のループを追加して2、で、あなたの数式で1を交換してください。

この方向にループを実行すると、Subはすべての空のセルを削除しますか？

For i = 6 To Cells(65535, 2).End(xlUp).Row 
    If IsEmpty(Cells(i, 2)) Then Range(Cells(i - 1, 2), Cells(i, 2)).Merge 
Next