《多个Excel合并,并可设定自动去除表头.docx》由会员分享，可在线阅读，更多相关《多个Excel合并,并可设定自动去除表头.docx（3页珍藏版）》请在三一办公上搜索。
1、多个Excel合并,并可设定自动去除表头步骤：1、新建一个文件夹2、将要合并的表格放到里面3、并在文件夹内新建一个excel表格文件。4、用excel打开，因为WPS没有宏命令所以只能使用excel打开。5、在excel下方选项卡处，右击Sheet1选项卡。6、选择查看代码7、将下面代码复制到文本框中：8、点击运行或按F59、一段时间后，合并完成。代码如下：Sub 合并当前目录下所有工作簿的全部工作表Dim MyPath, MyName, AWbNameDim Wb As Workbook, WbN As StringDim G As LongDim Num As LongDim BOX As
2、 StringApplication.ScreenUpdating = FalseMyPath = ActiveWorkbook.PathMyName = Dir(MyPath & & *.xls)AWbName = ActiveWorkbook.NameNum = 0Do While MyName <> If MyName <> AWbName ThenSet Wb = Workbooks.Open(MyPath & & MyName)Num = Num + 1With Workbooks(1).ActiveSheetIf Num = 1 ThenFor G = 1 To S
3、heets.CountWb.Sheets(G).UsedRange.Copy .Cells(.Range(A65536).End(xlUp).Row + 1, 1)NextElseFor G = 1 To Sheets.Count下列代码可以设定除第一个Excel表格以外的Excel文件从第几行或第几列开始合并以便去除第一个Excel表格以外需要合并的Excel表格所有表头。“UsedRange.Offset(1, 0)”代表去除第1行第0列,一般不建议对列进行设置，以免与表头对应出现混乱。Wb.Sheets(G).UsedRange.Offset(1, 0).Copy .Cells(.Range(A65536).End(xlUp).Row + 1, 1)NextEnd IfWbN = WbN & Chr(13) & Wb.NameWb.Close FalseEnd WithEnd IfMyName = DirLoopRange(A1).SelectApplication.ScreenUpdating = TrueMsgBox 共合并了 & Num & 个工作薄下的全部工作表.如下： & Chr(13) & WbN, vbInformation, 提示End Sub
