嘿，太懂你的痛点了——INDIRECT对付小数据量还行，但216000个单元格的话，卡到崩溃都不奇怪。别慌，VBA其实没你想的那么难，我给你量身写几个方案，一步步来，保证你能搞定。

INDIRECT属于易失性函数，每次Excel刷新（哪怕只是滚动页面）都会重新计算所有调用它的单元格，这才是拖慢速度的元凶。VBA可以直接打开源工作簿读取数据，一次性批量写入，效率能提升几十甚至上百倍。

如果你的目标是把源工作簿里的某块连续数据（比如整个Sheet的已用区域）导入到当前工作簿，用这个代码最省心：

Sub UpdateDynamicData()
    ' 关闭屏幕更新和自动计算，提升运行速度
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    
    Dim sourceWBName As String
    Dim sourceWB As Workbook
    Dim targetWS As Worksheet
    Dim sourceRange As Range
    Dim targetStartCell As Range
    
    ' ====== 这里改成你自己的参数 ======
    Set targetWS = ThisWorkbook.Worksheets("你的目标工作表") ' 目标工作表名称
    Set targetStartCell = targetWS.Range("B2") ' 数据从哪个单元格开始填充
    sourceWBName = targetWS.Range("A1").Value ' 源工作簿名称存在哪个单元格（比如A1）
    ' ================================
    
    ' 检查源文件是否存在，避免报错
    If Dir(ThisWorkbook.Path & "\" & sourceWBName) = "" Then
        MsgBox "源文件不存在！请检查A1里的工作簿名称。", vbExclamation
        GoTo Cleanup ' 跳转到结尾恢复设置
    End If
    
    ' 后台打开源工作簿（只读，不显示界面）
    Set sourceWB = Workbooks.Open( _
        FileName:=ThisWorkbook.Path & "\" & sourceWBName, _
        ReadOnly:=True, _
        UpdateLinks:=False _
    )
    
    ' 取源工作簿里Sheet1的所有已用数据（可改成你需要的工作表/区域）
    Set sourceRange = sourceWB.Worksheets("Sheet1").UsedRange
    
    ' 把源数据批量写入目标区域
    targetStartCell.Resize(sourceRange.Rows.Count, sourceRange.Columns.Count).Value = sourceRange.Value
    
    ' 关闭源工作簿，不保存
    sourceWB.Close SaveChanges:=False
    
Cleanup:
    ' 恢复Excel的正常设置
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
    
    ' 释放内存
    Set sourceWB = Nothing
    Set targetWS = Nothing
    Set sourceRange = Nothing
    Set targetStartCell = Nothing
    
    MsgBox "数据更新完成！", vbInformation
End Sub

关键细节说明： #

• ReadOnly:=True：只读打开源文件，既不占用文件锁，也防止误改源数据
• UpdateLinks:=False：禁止自动更新源文件里的链接，大幅加快打开速度
• 直接用Range.Value赋值：比复制粘贴快N倍，是大数据量处理的最优写法
• 后台打开源文件：用户看不到打开的窗口，体验更流畅

如果你的目标单元格是分散的（比如每个单元格对应源文件的不同位置），用这个循环处理的版本：

Sub BatchUpdateCells()
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    
    Dim targetWS As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim sourceWBName As String
    Dim sourceCellAddr As String
    Dim sourceWB As Workbook
    
    ' ====== 这里改成你自己的参数 ======
    Set targetWS = ThisWorkbook.Worksheets("批量更新表") ' 目标工作表
    ' 假设：D列存源工作簿名称，C列存源单元格地址（比如"Sheet1!C5"），E列存结果
    ' ================================
    
    ' 获取D列最后一行（避免空行循环）
    lastRow = targetWS.Cells(targetWS.Rows.Count, "D").End(xlUp).Row
    
    ' 循环处理每一行数据
    For i = 2 To lastRow ' 第1行是表头，从第2行开始
        sourceWBName = targetWS.Range("D" & i).Value
        sourceCellAddr = targetWS.Range("C" & i).Value
        
        ' 检查源文件是否存在
        If Dir(ThisWorkbook.Path & "\" & sourceWBName) = "" Then
            targetWS.Range("E" & i).Value = "❌ 文件不存在"
            Continue For ' 跳过当前行，继续下一个
        End If
        
        ' 检查源工作簿是否已经打开，避免重复打开浪费资源
        On Error Resume Next
        Set sourceWB = Workbooks(sourceWBName)
        On Error GoTo 0
        
        ' 如果没打开，就后台打开它
        If sourceWB Is Nothing Then
            Set sourceWB = Workbooks.Open( _
                FileName:=ThisWorkbook.Path & "\" & sourceWBName, _
                ReadOnly:=True, _
                UpdateLinks:=False _
            )
        End If
        
        ' 读取源单元格数据，写入目标单元格
        On Error Resume Next ' 防止源单元格地址错误导致程序崩溃
        targetWS.Range("E" & i).Value = sourceWB.Range(sourceCellAddr).Value
        If Err.Number <> 0 Then
            targetWS.Range("E" & i).Value = "❌ 地址错误"
        End If
        On Error GoTo 0
        
        ' 如果是我们打开的工作簿，就关闭它（如果用户自己打开的就保留）
        If Not sourceWB Is Nothing And sourceWB.Name = sourceWBName Then
            sourceWB.Close SaveChanges:=False
            Set sourceWB = Nothing
        End If
    Next i
    
Cleanup:
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
    
    Set targetWS = Nothing
    MsgBox "批量更新完成！", vbInformation
End Sub

关键优化点： #

• 加入错误处理：哪怕某个单元格的源文件/地址出错，程序也会继续处理其他单元格
• 复用已打开的工作簿：避免重复打开同一个文件，节省时间
• 跳过空行：自动识别最后一行数据，不用手动设置循环范围

1. 打开你的Excel文件，按Alt + F11打开VBA编辑器
2. 右键点击左侧的工作簿名称 → 插入 → 模块
3. 把上面的代码粘贴进去，修改====== 这里改成你自己的参数 ======里的内容
4. 回到Excel，按Alt + F8，选择对应的宏名称，点击「执行」

• 把源文件和当前工作簿放在同一个文件夹里：这样代码里的ThisWorkbook.Path就能直接找到文件，不用写完整路径
• 尽量批量处理：单个单元格循环肯定慢，能凑成连续区域就用基础版的范围赋值
• 如果需要定时更新：可以给宏加个快捷键（文件 → 选项 → 自定义功能区 → 键盘快捷键），或者用工作表事件（比如打开文件时自动更新）

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