如何在指定工作表设置Range函数并编写二维区域求和子例程（解决1004错误）

Run Time Error 1004通常和区域引用无效、工作表访问权限或依赖ActiveSheet的不稳定引用有关，以下是针对性的修复方案和正确实现代码：

常见错误原因及修复 #

• 避免依赖ActiveSheet，直接绑定目标工作表
  ActiveSheet会随当前激活的工作表变化，若操作时激活的不是工作表X，就会触发引用错误。直接通过工作表名称或索引绑定更可靠：

  Set targetSheet = ThisWorkbook.Worksheets("X") ' 替换成你的工作表名称
  

• 确认区域引用合法
  若通过动态方法（如UsedRange、End(xlUp)）获取区域，要确保最终生成的Range对象有效，比如避免行/列号超出工作表最大范围（Excel单工作表最大行号为1048576，最大列号为16384）。

• 处理工作表保护状态
  若工作表X被保护，且遍历的单元格处于锁定状态，未解除保护就访问会触发1004错误。可临时解除保护，操作完成后恢复：

  targetSheet.Unprotect Password:="yourPassword" ' 有密码时填写，无密码则省略参数
  ' 求和操作代码
  targetSheet.Protect Password:="yourPassword"
  

• 兼容合并单元格
  区域内存在合并单元格时，直接遍历单元格可能因引用合并区域的空单元格报错。可判断并读取合并区域的有效值：

  If cell.MergeCells Then
      sumTotal = sumTotal + cell.MergeArea.Value
  Else
      sumTotal = sumTotal + cell.Value
  End If
  

完整求和子例程示例 #

Sub Calculate2DRangeSum()
    Dim targetSheet As Worksheet
    Dim targetRange As Range
    Dim cell As Range
    Dim totalSum As Double
    
    ' 绑定目标工作表
    Set targetSheet = ThisWorkbook.Worksheets("X")
    ' 设置目标二维区域（示例为A1:C5，按需修改）
    Set targetRange = targetSheet.Range("A1:C5")
    
    totalSum = 0
    
    ' 遍历单元格累加数值
    On Error Resume Next ' 跳过非数值单元格的类型错误
    For Each cell In targetRange
        If IsNumeric(cell.Value) Then
            totalSum = totalSum + cell.Value
        End If
    Next cell
    On Error GoTo 0
    
    ' 输出结果（示例在D1单元格显示）
    targetSheet.Range("D1").Value = "区域总和：" & totalSum
End Sub

性能优化建议（针对大区域） #

逐个遍历单元格效率较低，可将区域值读取到数组后批量处理：

Sub Fast2DRangeSum()
    Dim targetSheet As Worksheet
    Dim targetRange As Range
    Dim dataArray As Variant
    Dim totalSum As Double
    Dim i As Long, j As Long
    
    Set targetSheet = ThisWorkbook.Worksheets("X")
    Set targetRange = targetSheet.Range("A1:C5")
    dataArray = targetRange.Value ' 将区域值存入数组
    
    totalSum = 0
    ' 遍历数组累加
    For i = LBound(dataArray, 1) To UBound(dataArray, 1)
        For j = LBound(dataArray, 2) To UBound(dataArray, 2)
            If IsNumeric(dataArray(i, j)) Then
                totalSum = totalSum + dataArray(i, j)
            End If
        Next j
    Next i
    
    targetSheet.Range("D1").Value = "区域总和：" & totalSum
End Sub

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