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

Question

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

有人可以帮我吗？我只是不知道如何创建一个包含所有空行的循环。 谢谢 安迪

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是第3列，C。