垂直合并两个单元格并创build循环直到最后一行

我目前正在运行一个循环来垂直合并两个单元格。 在图片中你可以看到我在说什么：我需要合并C1和C2，然后继续合并C3和C4等，直到没有更多的数据。

有人可以帮我吗？ 我只是不知道如何创build一个所有的空行之间的循环..谢谢安迪

点击这里查看截图

Answer 1

使用类似的东西，

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.