VBA 代码：从多个工作簿中提取数据并按列粘贴到指定工作表

Sub copyData() Dim sourceWB As Workbook Dim targetWB As Workbook Dim sourceSheet As Worksheet Dim targetSheet As Worksheet Dim i As Integer

' 打开源工作簿
Set sourceWB = Workbooks.Open('C:\SourceWorkbook.xlsx')

' 打开目标工作簿
Set targetWB = Workbooks.Open('C:\TargetWorkbook.xlsx')

' 设置源工作表
Set sourceSheet = sourceWB.Sheets(1)

' 设置目标工作表
Set targetSheet = targetWB.Sheets(1)

' 循环复制数据
For i = 1 To 10
    ' 复制数据
    sourceSheet.Range('A' & i).Copy
    ' 粘贴数据
    targetSheet.Cells(1, i).PasteSpecial xlPasteValues
Next i

' 关闭源工作簿
sourceWB.Close False

' 关闭目标工作簿
targetWB.Close True

End Sub