向下合并列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
答
只是更换,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
谢谢,我曾试过,但必须改变别的东西。感谢您的反应,这工作正常。 – FrenchieRab
@FrenchieRab,如果这个答案解决了您的问题,那么您被邀请将其标记为已接受。这两个让其他用户知道这是你的问题的工作解决方案,并适当_reward_ matthias – user3598756