Połącz kolumny A i B pod każdym z nagłówków - vba, scal

Chciałbym połączyć szereg nagłówków z pewną liczbą spacji pod spodem, takich jak:

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

Mam makro do scalania i wycentrowania tekstu, ale działa tylko dla kolumny "A".

Jestem pewien, że jest to szybka naprawa, ale chciałbym, aby makro zostało uruchomione w kolumnach A i B. Aby wyjaśnić, kolumny A i B łączą się pojedynczo w kolumnach, a nie między sobą.

Sub 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

Odpowiedzi:

Wystarczy zastąpić, 1 w swoich formułach, 2, aby zmienić kolumnę 2. Lub dodaj kolejną pętlę z 1 do 2, aby zmodyfikować obie kolumny w jednym przebiegu.

Czy twój Sub eliminuje wszystkie puste komórki, jeśli uruchomisz pętlę w tym kierunku?

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