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

，可以通过以下步骤实现：

首先，打开Excel并创建一个新的宏。按下Alt + F11打开VBA编辑器。
在VBA编辑器中，找到并展开活动工作簿（Workbook）的对象，然后找到活动工作表（Worksheet）的对象。
在活动工作表的对象下，找到并展开"Modules"文件夹，然后双击打开一个新的模块。
在模块中，编写以下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