在活动工作表VBA之后从多个工作表复制特定列

Sub CopyColumnsFromWorksheets()
    Dim sourceWorkbook As Workbook
    Dim sourceWorksheet As Worksheet
    Dim targetWorksheet As Worksheet
    Dim sourceColumn As Range
    Dim targetColumn As Range
    Dim columnToCopy As String
    Dim i As Integer
    
    ' 设置目标工作表
    Set targetWorksheet = ThisWorkbook.Sheets("目标工作表名称")
    
    ' 设置要复制的列
    columnToCopy = "A" ' 设置要复制的列，这里以A列为例
    
    ' 循环遍历所有工作表
    For i = 1 To Worksheets.Count
        ' 跳过目标工作表
        If Worksheets(i).Name <> targetWorksheet.Name Then
            ' 设置源工作表
            Set sourceWorksheet = Worksheets(i)
            
            ' 查找源列
            Set sourceColumn = sourceWorksheet.Range(columnToCopy & ":" & columnToCopy)
            
            ' 查找目标列
            Set targetColumn = targetWorksheet.Range(columnToCopy & ":" & columnToCopy)
            
            ' 复制源列到目标列
            sourceColumn.Copy Destination:=targetColumn
        End If
    Next i
End Sub