20170223合并多个excel文档同时自动去除除第一个表格之外的表格的表头方法步骤-(1)

合并多个excel文档同时自动去除除第一个表格之外的表格的表头方法步骤（个人整理）：1、新建一个文件夹2、将要合并的表格放到里面3、并在文件夹内新建一个excel表格文件。4、用excel打开，因为WPS没有宏命令所以只能使用excel打开。5、在excel下方选项卡处，右击Sheet1选项卡。6、选择查看代码7、将下面代码复制到文本框中：8、点击运行或按F59、一段时间（取决于表格的大小和多少）后，合并完成。'代码如下：Sub合并当前目录下所有工作簿的全部工作表()DimMyPath,MyName,AWbNameDimWbAsWorkbook,WbNAsStringDimGAsLongDimNumAsLongDimBOXAsStringApplication.ScreenUpdating=FalseMyPath=ActiveWorkbook.PathMyName=Dir(MyPath&\&*.xls)AWbName=ActiveWorkbook.NameNum=0DoWhileMyNameIfMyNameAWbNameThenSetWb=Workbooks.Open(MyPath&\&MyName)Num=Num+1WithWorkbooks(1).ActiveSheetIfNum=1ThenForG=1ToSheets.CountWb.Sheets(G).UsedRange.Copy.Cells(.Range(A65536).End(xlUp).Row+1,1)NextElseForG=1ToSheets.Count'下列代码可以设定除第一个Excel表格以外的Excel文件从第几行或第几列开始合并以便去除第一个Excel表格以外需要合并的Excel表格所有表头。“UsedRange.Offset(1,0)”代表去除第1行第0列（如果去除前3行表头，把1改成3即可）,一般不建议对列进行设置，以免与表头对应出现混乱。Wb.Sheets(G).UsedRange.Offset(1,0).Copy.Cells(.Range(A65536).End(xlUp).Row+1,1)NextEndIfWbN=WbN&Chr(13)&Wb.NameWb.CloseFalseEndWithEndIfMyName=DirLoopRange(A1).SelectApplication.ScreenUpdating=TrueMsgBox共合并了&Num&个工作薄下的全部工作表.如下：&Chr(13)&WbN,vbInformation,提示EndSub去除表头后，还有很多表尾，一个一个删除比较麻烦，下面方法比较简单：在“查找和替换”对话框中输入要查找的内容，点击查找全部，在下面的窗口中选中查找到的第一行按shift键，同时按方向键向下选中查找到的所有记录或者把查找替换窗口拉大用鼠标选中所有查找记录，然后关闭查找替换窗口，点击编辑菜单→删除→整行。即可