VBA - 合并第一列中的行数

Question

我在这里看到了一些VBA示例，允许我们合并一组单元格，但没有一个完全符合我的需要。

我想要做的是沿着整个列A：A向下并合并每四行，以开始。我知道这涉及到更改参考单元格，但我对该语言不够熟练，不知道如何在不搞定循环的情况下这样做。

Here是我想要格式化的数据示例。在此先感谢您提供的任何帮助。

---

Answer 1

只需将Count设置为您想要的合并单元格数，然后运行MergeColA。

Sub MergeColA()
Dim Count As Integer
Count = 10
MergeCells (Count)
End Sub
Sub MergeCells(Count As Integer)
For i = 4 To 4 * count Step (4)
Dim r As Range
Set r = Range("A" & i, "A" & i + 3)
r.Merge
Next i
End Sub