垂直合併兩個單元格並創建循環直到最後一行

我目前很難運行一個循環來垂直合併兩個單元格。在圖片中，您可以看到我在說什麼：我需要合併C1和C2，然後繼續合併C3和C4等，直到沒有更多數據。垂直合併兩個單元格並創建循環直到最後一行

有人可以幫我嗎？我只是不知道如何創建具有之間的所有空行的循環.. 感謝安迪

2017-02-16 Andy Weinzierl

P租借發佈你的嘗試，即使它沒有工作。 –

我會這樣做，但我真的不知道該怎麼做.. –

使用類似，

Dim lastR as Integer 

'get the last used row in col C 
lastR = Sheets("Sheet1").Cells(Rows.Count, 3).End(xlUp).Row 

For i = 1 to lastR step 2 
    Range(Cells(i, 3), Cells(i + 1, 3)).Merge 
Next i

凡10是你想要走多遠，我是第一排，3是第三列，C。

來源

2017-02-16 20:33:50

哇，這個「步驟」是我以前從未聽說過的一個很棒的舉動。謝謝你，完美的作品！有沒有機會找到最後一行而不是10？它必須有可能說拉斯特羅是在最後一個內容發生後兩個空容器發生的地方......或者我錯了嗎？ –

@AndyWeinzierl在這裏看到的方法來找到最後一個單元格然後添加1：http://stackoverflow.com/questions/11169445/error-in-finding-last-used-cell-in-vba –

只是谷歌搜索'Excel查找最後排VBA「會給你答案，但我已經編輯了這個問題。 –

垂直合併兩個單元格並創建循環直到最後一行

回答

相關問題