合并每个标题下的A列和B列

Posted 2021-05-04

我希望将一系列标题与下面的一些空白合并，例如：

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列分别在列之间合并而不是在彼此之间合并。

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

答案

只需将公式中的1替换为2，修改第2列。或者添加另一个从1到2运行的循环，以在一次运行中修改两列。

如果沿这个方向运行循环，你的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