VBA错误1004：从第4行起合并5996行18个单元格时触发应用程序定义错误

我在处理VBA合并单元格的需求时，经常碰到Error 1004这个头疼的问题，结合你说的「从第4行开始，总计5996行，每行18个单元格合并」的具体场景，咱们来一步步拆解问题、找到可行的解决方案：

常见触发Error 1004的原因及修复思路 #

1. 合并区域引用出错 #

如果你的代码里引用的单元格范围超出了工作表的实际列数/行数，或者列号计算错误，就会直接触发1004错误。比如你要合并每行18个单元格，假设从A列（第1列）开始，那每行的范围应该是Range(Cells(rowNum, 1), Cells(rowNum, 18))——要是不小心写成19列，而工作表没有那么多列，肯定会报错。

2. 工作表处于保护状态 #

如果目标工作表被保护了，而合并单元格的操作不在允许的权限列表里，也会弹出这个错误。解决办法很简单：先取消保护，完成合并后再重新保护：

' 取消保护（如果工作表没设密码，就去掉Password参数）
ActiveSheet.Unprotect Password:="YourPassword"

' 这里放合并单元格的代码

' 重新保护工作表
ActiveSheet.Protect Password:="YourPassword"

3. 批量操作时未禁用Excel自动功能 #

你要合并5996行，属于批量操作，Excel默认的屏幕更新、事件触发、自动计算等功能会拖慢程序，甚至引发错误。建议在代码开头禁用这些功能，结束后再恢复：

' 临时禁用自动功能
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.Calculation = xlCalculationManual

' 你的合并代码写在这里

' 恢复自动功能
Application.ScreenUpdating = True
Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic

4. 特殊格式/锁定单元格干扰 #

如果要合并的单元格带有数据验证、条件格式，或者被单独锁定，也可能导致合并失败。可以先清除不必要的格式，或者确保目标单元格处于可编辑状态。

适配你需求的完整可运行代码 #

下面是专门针对你需求写的代码，包含错误捕获和效率优化，直接复制就能用：

Sub MergeTargetRows()
    Dim targetSheet As Worksheet
    Dim startRow As Long, totalRows As Long, endRow As Long
    Dim currentRow As Long
    
    ' 配置参数：指定目标工作表、起始行、总行数
    Set targetSheet = ThisWorkbook.Sheets("Sheet1") ' 替换成你的工作表名称
    startRow = 4
    totalRows = 5996
    endRow = startRow + totalRows - 1 ' 计算合并的结束行号
    
    ' 禁用Excel自动功能，提升效率避免错误
    With Application
        .ScreenUpdating = False
        .EnableEvents = False
        .Calculation = xlCalculationManual
    End With
    
    On Error GoTo ErrorHandler ' 开启错误捕获
    
    ' 循环合并每行的18个单元格
    For currentRow = startRow To endRow
        With targetSheet.Range(targetSheet.Cells(currentRow, 1), targetSheet.Cells(currentRow, 18))
            .Merge
            .HorizontalAlignment = xlCenter ' 可选：设置合并后文字居中
        End With
    Next currentRow
    
    MsgBox "所有指定行的单元格合并完成！", vbInformation
    
Cleanup:
    ' 恢复Excel默认设置
    With Application
        .ScreenUpdating = True
        .EnableEvents = True
        .Calculation = xlCalculationAutomatic
    End With
    Exit Sub
    
ErrorHandler:
    MsgBox "合并过程中出现错误：" & Err.Number & " - " & Err.Description, vbCritical
    Resume Cleanup
End Sub

额外提醒 #

• 尽量避免合并单元格：合并单元格会给后续的排序、筛选、公式引用等操作带来麻烦，如果只是为了视觉上的居中效果，建议用「开始选项卡→对齐方式→跨列居中」格式替代，效果一样但更安全。
• 确认工作表行范围：你的合并结束行是第6000行（4+5996-1），Excel默认工作表有1048576行，所以完全没问题，但如果是非常老的Excel版本（比如2003及以前，最多65536行），也需要确认行号是否在范围内。

内容的提问来源于stack exchange，提问作者Anuj Kumar