如何修改VBA宏以仅合并各工作簿的第一个工作表？

嗨，我来帮你搞定这个问题！你现在的宏会把选中工作簿里的所有工作表都合并进来，其实只要调整一下代码逻辑，只针对每个工作簿的第一个工作表操作就行，非常简单。

核心修改思路 #

你的原代码应该是在遍历每个源工作簿的所有工作表（比如用了For Each ws In wb.Worksheets这类循环），现在我们要把这段循环去掉，直接定位到每个工作簿的第一个工作表，然后复制它到目标文件里。

完整修改后的示例代码 #

下面是一个可以直接用的完整宏，关键修改点我标了注释：

Sub MergeOnlyFirstSheets()
    Dim targetWorkbook As Workbook
    Dim sourceWorkbook As Workbook
    Dim firstSourceSheet As Worksheet
    Dim selectedFiles As Variant
    Dim fileIndex As Integer
    
    ' 创建新工作簿作为合并结果的载体
    Set targetWorkbook = Workbooks.Add(xlWBATWorksheet)
    targetWorkbook.SaveAs ThisWorkbook.Path & "\合并结果.xlsx"
    
    ' 弹出文件选择框，让用户选要合并的工作簿
    selectedFiles = Application.GetOpenFilename( _
        FileFilter:="Excel文件 (*.xlsx;*.xls), *.xlsx;*.xls", _
        MultiSelect:=True)
    
    ' 如果用户选了文件才继续执行
    If IsArray(selectedFiles) Then
        For fileIndex = LBound(selectedFiles) To UBound(selectedFiles)
            ' 以只读模式打开源工作簿，避免锁定文件
            Set sourceWorkbook = Workbooks.Open(Filename:=selectedFiles(fileIndex), ReadOnly:=True)
            
            ' 🔴关键修改：直接获取第一个工作表（用Worksheets而非Sheets，只取普通数据工作表）
            Set firstSourceSheet = sourceWorkbook.Worksheets(1)
            
            ' 把第一个工作表复制到目标工作簿的最后
            firstSourceSheet.Copy After:=targetWorkbook.Sheets(targetWorkbook.Sheets.Count)
            
            ' 关闭源工作簿，不需要保存（因为是只读打开的）
            sourceWorkbook.Close SaveChanges:=False
        Next fileIndex
        
        ' 删除目标工作簿默认的空白初始工作表（可选，根据你的需求调整）
        If targetWorkbook.Sheets.Count > 1 Then
            Application.DisplayAlerts = False ' 关闭删除提示框
            targetWorkbook.Sheets(1).Delete
            Application.DisplayAlerts = True ' 恢复提示框
        End If
        
        MsgBox "合并完成！结果文件路径：" & targetWorkbook.FullName
    Else
        MsgBox "你没有选择任何文件哦！"
    End If
End Sub

针对你现有代码的修改提示 #

如果你不想用全新代码，只想修改自己现有的宏：

• 找到你代码里类似For Each ws In sourceWB.Worksheets的循环段，把这段循环整个删掉
• 替换成直接获取第一个工作表的代码：Set sourceWS = sourceWB.Worksheets(1)
• 然后执行复制这个工作表的逻辑即可

注意细节 #

• 用Worksheets(1)而不是Sheets(1)：Sheets会包含图表工作表、宏工作表等非数据类表，Worksheets只针对普通的单元格工作表，更严谨
• 打开源工作簿时用ReadOnly:=True：防止文件被锁定，也避免误修改源文件
• 关闭源工作簿时用SaveChanges:=False：因为我们只是读取数据，不需要保存源文件的任何改动

内容的提问来源于stack exchange，提问作者user1424815