VBA中高效复制工作表已使用区域指定列的优化方法咨询

问题根源解析 #

你之前的两种写法都存在缺陷：

• 整列赋值会复制大量空行，严重拖慢运行效率；
• 直接把源数据的部分行赋值给目标列的整列，会导致目标列中超过源数据行数的单元格因无对应数据填充#N/A。

推荐解决方案：列映射批量处理 #

通过定义源列与目标列的对应关系数组，循环完成批量复制，既避免代码重复，又只复制有效数据行，彻底解决效率和错误值问题。

Sub CopySpecifiedColumns()
    Dim wsSource As Worksheet, wsTarget As Worksheet
    Dim lastRow As Long
    Dim colMap As Variant
    Dim i As Integer
    
    ' 指定源工作表和目标工作表
    Set wsSource = ThisWorkbook.Sheets(1)
    Set wsTarget = ThisWorkbook.Sheets(2)
    
    ' 获取源数据的最后有效行（可根据实际调整判断列）
    lastRow = wsSource.Range("C" & wsSource.Rows.Count).End(xlUp).Row
    
    ' 定义源列与目标列的映射关系，按需添加剩余12组对应关系
    colMap = Array( _
        Array("C", "A"), _
        Array("G", "C"), _
        Array("T", "D") _
        ' 示例：Array("X", "E"), Array("Y", "F")...
    )
    
    ' 循环复制每一组列数据
    For i = LBound(colMap) To UBound(colMap)
        wsTarget.Range(colMap(i)(1) & "1:" & colMap(i)(1) & lastRow).Value = _
            wsSource.Range(colMap(i)(0) & "1:" & colMap(i)(0) & lastRow).Value
    Next i
End Sub

核心优势 #

1. 易维护：新增或修改列对应关系，只需调整colMap数组，无需重复编写赋值语句；
2. 高效率：仅复制到源数据的最后有效行，避免空行加载；
3. 无错误值：目标范围与源范围行数完全匹配，不会出现#N/A。

进阶优化：大场景提速 #

如果数据量较大，可添加屏幕刷新和事件关闭逻辑，进一步提升运行速度：

Sub CopySpecifiedColumnsOptimized()
    Dim wsSource As Worksheet, wsTarget As Worksheet
    Dim lastRow As Long
    Dim colMap As Variant
    Dim i As Integer
    
    ' 关闭冗余操作，提升速度
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    
    Set wsSource = ThisWorkbook.Sheets(1)
    Set wsTarget = ThisWorkbook.Sheets(2)
    
    lastRow = wsSource.Range("C" & wsSource.Rows.Count).End(xlUp).Row
    
    colMap = Array( _
        Array("C", "A"), _
        Array("G", "C"), _
        Array("T", "D") _
    )
    
    For i = LBound(colMap) To UBound(colMap)
        wsTarget.Range(colMap(i)(1) & "1:" & colMap(i)(1) & lastRow).Value = _
            wsSource.Range(colMap(i)(0) & "1:" & colMap(i)(0) & lastRow).Value
    Next i
    
    ' 恢复默认设置
    Application.ScreenUpdating = True
    Application.EnableEvents = True
End Sub

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