1、打开需要将所有单个的EXCLE表合到到一个表的工作簿，新建一个工作表在这个工作表中录入ALT+F112、 你把下面的代码复制到里边去 3、上面有个运行， 运行子程序就可以了。代码如下Sub 合并当前工作簿下的所有工作表()Application.ScreenUpdating = FalseFor 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 IfNextRange(B1).SelectApplication.ScreenUpdating = TrueMsgBox 当前工作簿下的全部工作表已经合并完毕！, vbInformation, 提示End Sub
