VBA动态复制工作表数据：Sheet1指定列到Sheet2指定列的实现问题

Hey there! Let's get your data copying task sorted out. Your existing code has a few hiccups—unnecessary nested loops, incomplete range references, and it only addresses one column instead of both A and C from Sheet1. Here's a clean, efficient fix that gets the job done right:

修正后的完整代码 #

Sub CopyColumnsToSheet2()
    Dim wsSource As Worksheet
    Dim wsTarget As Worksheet
    Dim lastRow As Long
    
    ' 设定源工作表和目标工作表的引用
    Set wsSource = ThisWorkbook.Sheets("Sheet1")
    Set wsTarget = ThisWorkbook.Sheets("Sheet2")
    
    ' 找到Sheet1中A列最后一行有数据的行号
    lastRow = wsSource.Cells(wsSource.Rows.Count, "A").End(xlUp).Row
    
    ' 将Sheet1的A列（从第3行开始）复制到Sheet2的A列（从第2行开始）
    wsSource.Range("A3:A" & lastRow).Copy Destination:=wsTarget.Range("A2")
    
    ' 将Sheet1的C列（从第3行开始）复制到Sheet2的H列（从第2行开始）
    wsSource.Range("C3:C" & lastRow).Copy Destination:=wsTarget.Range("H2")
    
    ' 可选：清除剪贴板，去掉复制后的虚线边框
    Application.CutCopyMode = False
End Sub

为什么这个方案更好？ #

• 直接复制范围，效率更高：避免了逐单元格循环（处理大量数据时会很慢），利用Excel内置的复制功能一次性完成操作。
• 清晰的映射关系：明确指定了源列和目标列的对应关系，不会出现混淆。
• 完整的边界处理：准确获取源数据的最后一行，不会复制空行也不会遗漏数据。

如果你的需求需要更复杂的逻辑（比如跳过特定行、筛选数据再复制），可以随时补充细节，我再帮你调整代码！

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