VBA

Question

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

我想要做的是沿着整个列 A:A 向下并每四行合并一次，从单元格 A4 开始。我知道这涉及更改参考单元格，但我的语言不够熟练，不知道如何在不搞砸循环的情况下执行此操作。

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

VBA - 合并设置第一列的行数

VBA - merge set number of rows in first column

merge