Excel vba 将多个工作薄的某一列合并到新的工作薄中

Excel VBA (Visual Basic for Applications) 提供了一种强大的自动化工具，你可以使用VBA脚本来完成复杂的任务，例如将多个Excel工作簿中的特定列合并到一个新的工作簿中。以下是简单的步骤说明：

1. **打开VBA编辑器**：首先，你需要在Excel中按下 `Alt + F11` 或者点击菜单栏的 "开发" -> "Visual Basic" 来打开VBA编辑器。

2. **创建宏**：在VBA编辑器中，右键点击 "Sheet1"（或者 "ThisWorkbook" 如果你想在新工作簿里操作）选择 "插入" -> "模块" 创建一个新的模块，然后在代码窗口开始编写代码。

Sub MergeColumns()
    Dim sourceBook As Workbook
    Dim targetBook As Workbook
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim startRow As Long
    Dim lastRow As Long
    
    ' 设置源工作簿路径和需要合并的列
    Set sourceBook = Workbooks.Open("source_file.xlsx")
    Set sourceSheet = sourceBook.Worksheets("Sheet1") ' 更改为你需要合并的源工作表
    startRow = 1 ' 开始行数，可根据实际情况调整
    lastRow = sourceSheet.Cells(sourceSheet.Rows.Count, "A").End(xlUp).Row
    
    ' 创建目标工作簿
    Set targetBook = Workbooks.Add
    Set targetSheet = targetBook.Worksheets(1)
    
    ' 从每个源工作簿复制数据到目标工作簿
    For i = 1 To sourceBook.Workbooks.Count
        If i = 1 Then
            ' 如果这是第一个工作簿，则直接粘贴数据
            sourceSheet.Range(sourceSheet.Cells(startRow, 1), sourceSheet.Cells(lastRow, sourceSheet.Columns.Count)).Copy Destination:=targetSheet.Cells(startRow, 1)
        Else
            ' 否则，在目标工作簿中追加数据
            sourceSheet.Range(sourceSheet.Cells(startRow, 1), sourceSheet.Cells(lastRow, sourceSheet.Columns.Count)).Copy _
                Destination:=targetSheet.Cells(targetSheet.Cells.SpecialCells(xlCellTypeLastCell).Row + 1, 1)
        End If
    Next i

    ' 关闭不需要的工作簿并保存目标工作簿
    sourceBook.Close SaveChanges:=False
    targetBook.SaveAs "merged_data.xlsx" ' 更改为你的目标文件名
End Sub

记得替换 `"source_file.xlsx"` 为源工作簿的实际路径，以及适当的列和行范围。运行这个宏，你的工作簿就会按照指定的方式合并了。