如何优化VBA代码：实现从CSV文件复制指定单元格至目标工作簿

需求说明：通过命令按钮打开CSV文件，将源文件指定单元格复制到目标工作簿对应位置，对应关系如下：

现有代码可运行但执行速度慢，以下是优化方案：

优化后的代码 #

Private Sub CommandButton3_Click()
    Dim fileToOpen As Variant
    Dim sourceWB As Workbook
    Dim targetWS As Worksheet
    Dim cellMappings As Variant
    Dim i As Integer
    
    ' 关闭屏幕刷新与事件触发，提升执行速度
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    
    ' 选择CSV文件
    fileToOpen = Application.GetOpenFilename( _
        FileFilter:="CSV文件 (*.csv), *.csv", _
        Title:="选择报告文件")
    
    ' 判断用户是否取消选择
    If fileToOpen = False Then GoTo Cleanup
    
    ' 定义目标工作表（避免重复引用）
    Set targetWS = ThisWorkbook.Worksheets("Sheet1")
    
    ' 打开源CSV工作簿
    Set sourceWB = Application.Workbooks.Open(fileToOpen)
    
    ' 定义单元格映射关系数组，便于维护和批量处理
    cellMappings = Array( _
        Array("A2", "C8"), _
        Array("B2", "F7"), _
        Array("C2", "F6"), _
        Array("E2", "F8"), _
        Array("D2", "G8") _
    )
    
    ' 批量复制单元格（仅复制值，若需格式可改用Copy+PasteSpecial）
    For i = LBound(cellMappings) To UBound(cellMappings)
        targetWS.Range(cellMappings(i)(1)).Value = _
            sourceWB.Worksheets(1).Range(cellMappings(i)(0)).Value
    Next i
    
    ' 关闭源工作簿，不保存更改
    sourceWB.Close SaveChanges:=False
    
Cleanup:
    ' 恢复Excel默认设置
    Application.ScreenUpdating = True
    Application.EnableEvents = True
    Set sourceWB = Nothing
    Set targetWS = Nothing
End Sub

核心优化点 #

• 关闭界面交互开销：禁用ScreenUpdating和EnableEvents，避免Excel每次操作都刷新界面、触发事件，大幅提升速度
• 移除冗余操作：删除原代码中重复的Copy、Activate、Select操作，直接通过单元格对象赋值，减少不必要的界面切换
• 批量映射处理：用数组存储单元格对应关系，通过循环批量处理，代码更简洁易维护，减少重复代码
• 增加错误防护：处理用户取消选择文件的场景，避免报错；最后统一恢复Excel设置，防止异常退出导致设置未还原
• 简化对象引用：提前定义目标工作表对象，避免重复调用ThisWorkbook.Worksheets("Sheet1")，提升代码执行效率

注：如果需要复制单元格格式（如字体、颜色等），可将赋值语句替换为：

sourceWB.Worksheets(1).Range(cellMappings(i)(0)).Copy
targetWS.Range(cellMappings(i)(1)).PasteSpecial Paste:=xlPasteAll

但纯值复制的速度远快于带格式的复制，建议优先使用值复制。

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