向下合併列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

回答

相關問題