Excel VBA:获取另一列中的数据列表

Sub GetColumnData()
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim sourceRange As Range
    Dim targetRange As Range
    Dim lastRow As Long
    
    ' 设置源工作表和目标工作表
    Set sourceSheet = ThisWorkbook.Worksheets("Sheet1")
    Set targetSheet = ThisWorkbook.Worksheets("Sheet2")
    
    ' 获取源列的范围
    lastRow = sourceSheet.Cells(sourceSheet.Rows.Count, "A").End(xlUp).Row
    Set sourceRange = sourceSheet.Range("A1:A" & lastRow)
    
    ' 将源列的数据复制到目标列
    Set targetRange = targetSheet.Range("A1")
    sourceRange.Copy Destination:=targetRange
End Sub