VBA Excel 宏将一列复制到另一工作簿中

在VBA Excel中，我们可以使用宏来实现将一列数据复制到另一个工作簿中的操作。这种方法非常便捷，特别适用于需要频繁处理大量数据的情况。

vba
Sub CopyColumn()
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim lastRow As Long
    
    ' 设置源工作表和目标工作表
    Set sourceSheet = ThisWorkbook.Sheets("源工作表名称")
    Set targetSheet = Workbooks("目标工作簿名称.xlsm").Sheets("目标工作表名称")
    
    ' 获取源工作表中最后一行的行号
    lastRow = sourceSheet.Cells(sourceSheet.Rows.Count, "A").End(xlUp).Row
    
    ' 将源工作表中的数据复制到目标工作表
    sourceSheet.Range("A1:A" & lastRow).Copy targetSheet.Range("A1")
    
    ' 清除剪贴板中的数据
    Application.CutCopyMode = False
    
    ' 弹出成功提示
    MsgBox "数据已成功复制到目标工作簿中！", vbInformation
End Sub