工作薄分解合并成工作表.docVIP

工作薄分解合并成工作表 excel如何将一个工作簿中的多个工作表合并到一张工作表上 打开你的工作簿 新建一个工作表 在这个工作表的标签上右键 查看代码 你把下面的代码复制到里边去，然后 上面有个运行 运行子程序就可以了，代码如下，如果 出现问题你可以尝试工具 宏 宏安全性里把那个降低为中或者低再试试 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(B1).Select Application.ScreenUpdating = True MsgBox 当前工作簿下的全部工作表已经合并完毕！, vbInformation, 提示 End Sub 分解工作表为工作薄 1、打开excel，按alt+F11进入编程模式 2、选中左边列表最下面的ThisWorkbook 3、出现代码框，复制一下代码后关闭。 Sub SaveSheet() For Each ws In ThisWorkbook.Worksheets ws.Copy ActiveWorkbook.SaveAs Filename:= _ ThisWorkbook.Path \ ws.Name, FileFormat:=xlNormal _ , Password:=, WriteResPassword:=, ReadOnlyRecommended:=False, _ CreateBackup:=False ActiveWorkbook.Close Next End Sub 4.点击状态栏的运行命令即可！ 多个工作薄合并成一个工作蔳，在模块里执行。 要先合建一个宏，在宏中执行代码。 MyPath = ActiveWorkbook.Path ActiveName = ActiveWorkbook.Name MyName = Dir(MyPath \ *.xls) i = 0 Do While MyName If MyName ActiveName Then Set Wb = Workbooks.Open(MyPath \ MyName) i = i + 1 With Workbooks(1).ActiveSheet For j = 1 To Sheets.Count Wb.Sheets(j).Copy Before:=Workbooks(ActiveName).Sheets(1) Next Wbn = Wbn Chr(13) Wb.Name Wb.Close False End With End If MyName = Dir Loop MsgBox 共合并了 i 个工作薄,如下: Chr(13) Wbn, , 工作簿合并 一步到位，将多个工业薄中的工作表，合并到一个工作薄中一个工作表中。 新建一个工作表，命名后保存到和与合并的100个文件同一个文件文件夹，摁 alt + f11,双击工程资源管理器里面的sheet1(sheet1),在右侧的代码区粘贴如下代码。运行。等候一会就OK了。 Sub 合并当前目录下所有工作簿的全部工作表() Dim MyPath, MyName, AWbName Dim Wb As Workbook, WbN As String Dim G As Long Dim Num As Long Dim BOX As String Application.ScreenUpdating = False MyPath = ActiveWorkbook.Path MyName = Dir(MyPath \ *.xls) AWbName = ActiveWorkbook.Name Num = 0 Do While MyName If MyName AWbName Then Set Wb = Workbooks.Open(MyPath \ MyName) Num = Num + 1 With Workbooks(1).ActiveSheet .Cells(.Range(A65536).End(xlUp).Row + 2, 1) = Left(MyName, Len(MyNam