Excel VBA引用多单元格区域触发Runtime error 1004问题求助

首先，你遇到的这个Runtime Error 1004，大概率是因为你传入Range的地址字符串太长了——Excel的Range方法对地址参数的字符数有上限（通常是255个字符左右），你代码里的"D153:D184,D223:D254,D293:D324,D363:D394,D43..."明显是截断后的长地址，肯定超出了限制，所以第一个Range对象初始化直接失败了。

另外还有个潜在坑：你没有指定具体的工作表，代码默认用当前活动工作表，如果你的目标数据不在活动表里，也会触发类似错误。

下面给你几个可行的解决方案：

方案1：拆分长区域为多个小范围，逐个处理 #

把你的大区域拆分成多个短的地址字符串，分别赋值给不同的Range变量，再统一处理：

Sub RefreshCells()
    Dim ws As Worksheet
    Dim rng1 As Range, rng2 As Range, rng3 As Range
    Dim combinedRng As Range
    
    ' 明确指定工作表，替换成你的目标工作表名称
    Set ws = ThisWorkbook.Worksheets("你的工作表名")
    
    ' 拆分长区域为多个小范围，每个地址字符串不要太长
    Set rng1 = ws.Range("D153:D184,D223:D254,D293:D324")
    Set rng2 = ws.Range("D363:D394,D433:D464,D493:D524")
    ' 如果还有更多区域，继续添加rng3、rng4...
    
    ' 合并所有区域（方便统一处理）
    Set combinedRng = Union(rng1, rng2)
    ' 有更多区域就继续Union：Set combinedRng = Union(combinedRng, rng3)
    
    ' 模拟F2+回车的刷新操作，用更稳定的方式替代SendKeys
    Dim cell As Range
    For Each cell In combinedRng
        ' 强制单元格重新读取数据并计算，替代手动F2回车
        cell.Value = cell.Value
    Next cell
End Sub

方案2：用数组存储区域地址，循环遍历 #

如果你的目标区域规律很强（比如每40行左右一个区间），可以用数组存储所有地址，然后循环处理，更易维护：

Sub RefreshCellsWithArray()
    Dim ws As Worksheet
    Dim areaAddresses As Variant
    Dim i As Integer
    Dim currentRng As Range
    
    Set ws = ThisWorkbook.Worksheets("你的工作表名")
    ' 把所有需要处理的区域地址逐个存入数组
    areaAddresses = Array("D153:D184", "D223:D254", "D293:D324", "D363:D394", "D433:D464")
    
    For i = LBound(areaAddresses) To UBound(areaAddresses)
        Set currentRng = ws.Range(areaAddresses(i))
        ' 强制刷新单元格
        currentRng.Value = currentRng.Value
    Next i
End Sub

方案3：直接触发区域重新计算（更高效） #

如果你的[DIV/0]错误是因为外部数据未加载导致的计算滞后，也可以直接触发区域的重新计算，不需要逐个单元格模拟F2回车：

Sub RefreshCalculate()
    Dim ws As Worksheet
    Dim targetRng As Range
    
    Set ws = ThisWorkbook.Worksheets("你的工作表名")
    ' 同样用拆分后的地址避免长度问题
    Set targetRng = Union(ws.Range("D153:D184,D223:D254"), ws.Range("D293:D324,D363:D394"))
    
    ' 先强制区域重新计算
    targetRng.Calculate
    
    ' 如果Calculate效果不够，再结合值刷新确保数据更新
    targetRng.Value = targetRng.Value
End Sub

关键注意点： #

• 一定要指定工作表：避免因为当前活动表不是目标表而触发错误
• 拆分长地址：永远不要让Range的地址参数超过255个字符
• 替代SendKeys：SendKeys方法极不稳定（容易受窗口焦点影响），用cell.Value = cell.Value或者Range.Calculate是更可靠的方式

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