将一个工作簿中的多个工作表sheet合并到一个里面： 1. 在当前工作簿中新添加一个sheet。 2. 点击 开发工具 >> Visual Basic >> 插入 >> 模块，将下面的代码输入模块窗口中 Sub 合并当前工作簿下的所有工作表() Application.ScreenUpdating = False For j = 1 To Sheets.Count If Sheets(j).Name <> ActiveSheet.Name Then X = Range("A65536").End(xlUp).Row + 1 Sheets(j).UsedRange.Copy Cells(X, 1) End If Next Range("A1").Select Application.ScreenUpdating = True MsgBox "当前工作簿下的全部工作表已经合并完毕！", vbInformation, "提示" End Sub