向下合并列A和B

我期待合并了一系列的标题与一些空白的下方，如：向下合并列A和B

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

来源

2016-11-07 FrenchieRab

只是更换，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

来源

2016-11-07 13:26:29 matthias

谢谢，我曾试过，但必须改变别的东西。感谢您的反应，这工作正常。 – FrenchieRab

@FrenchieRab，如果这个答案解决了您的问题，那么您被邀请将其标记为已接受。这两个让其他用户知道这是你的问题的工作解决方案，并适当_reward_ matthias – user3598756

向下合并列A和B

回答

相关问题