Excel 实现在某一列中循环合并多行单元格

在 Excel 中，使用 VBA（Visual Basic for Applications）宏可以轻松实现多行合并单元格的操作。下面是一个简单的 VBA 代码实现循环合并3行单元格的示例：

1. 打开 Excel

在你的 Excel 文件中，按下 Alt + F11 打开 VBA 编辑器。

2. 打开 VBA 编辑器

右键点击左侧的任意项目（比如 VBAProject (YourWorkbookName)），选择 “插入” -> “模块”。

3. 插入新模块

在 VBA 编辑器中插入新模块。

4. 粘贴以下代码

将以下 VBA 代码粘贴到新插入的模块中：

Sub MergeEveryThreeRows()
    Dim ws As Worksheet
    Dim i As Long, lastRow As Long
    
    ' 指定你的工作表名称
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    ' 获取最后一行
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 循环每三行合并单元格，自定义起始行数
    For i = 1 To 2000 Step 3
        ws.Range("A" & i & ":A" & i + 2).Merge
    Next i
End Sub

5. 运行宏

关闭 VBA 编辑器后，按下 Alt + F8 打开宏窗口。选择 “MergeEveryThreeRows”（或你在代码中定义的宏名称），然后点击 “执行”。

6. 输出结果

上述代码示例，假设在 “Sheet1” 工作表的第一列中每三行进行合并。请根据实际情况修改工作表名称和列号。

术语解释：

如果这对您有所帮助，希望点赞支持一下作者！ 😊

点击查看原文