怎么把多个表格的内容合并到一个表格

怎么把多个表格的内容合并到一个表格

关键看具体要求
多个表格合并，需要考虑到循环遍历各个表格
使用vba实现就好，但是要怎么合并还是看具体要求了

把所需合并的excel文档放在同一个文件夹中,再文件夹中新建一个excel打开excel，按alt+f11，或 依次点工具，宏，vb编辑器，弹出的编辑器中点插入模块，新弹出的空白窗口中输入以下代码： sub com() 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(myname) - 4) for g = 1 to wb.sheets.count wb.sheets(g).usedrange.copy .cells(.range("a65536").end(xlup).row + 1, 1) next wbn = wbn & chr(13) & wb.name wb.close false end with end if myname = dir loop range("a1").select application.screenupdating = true msgbox "共合并了" & num & "个工作薄下的全部工作表。如下：" & chr(13) & wbn, vbinformation, "提示" end sub 保存---点执行键ok