怎样将多个Excel文档工作表合并到一个Excel 文档中去

怎样将多个Excel文档工作表合并到一个Excel 文档中去

我的做法就是一个个复制然后粘贴到一个工作表中。就是这样。希望对你有帮助，用后请点击我的回答下方【选为满意答案】按钮

方法/步骤 将需要合并的excel工作簿文件放置在一个文件夹中。 每个文件夹中的工作簿都输入了简单的内容。 在该文件夹中，新建立一个新的excel工作簿文件。重命名为8. 打开新建立的excel工作簿文件8.按alt+f11或者将鼠标移动到下方工作表名称sheet1上右键，选择查看代码。 在弹出的代码编辑窗口中，输入代码。注意：通过快捷键alt+f11打开的窗口如下没有直接复制代码的面板，需要点击左上方的工程-vba project模块，双击sheet1，即可打开代码窗口。而步骤3中的第二种方法可以直接打开代码输入窗口。 在代码窗口中，黏贴下列代码： sub combinefiles() dimpath as string dimfilename as string dimlastcell as range dimwkb as workbook dimws as worksheet dimthiswb as string dim mydir asstring mydir =thisworkbook.path & "\" 'chdriveleft(mydir, 1) 'find all the excel files 'chdir mydir 'match =dir$("") thiswb =thisworkbook.name application.enableevents = false application.screenupdating = false path =mydir filename =dir(path & "\*.xls", vbnormal) do untilfilename = "" if filename <> thiswb then set wkb = workbooks.open(filename:=path & "\"& filename) for each ws in wkb.worksheets set lastcell = ws.cells.specialcells(xlcelltypelastcell) if lastcell.value = "" and lastcell.address = range("$a$1").addressthen else ws.copy after:=thisworkbook.sheets(thisworkbook.sheets.count) end if next ws wkb.close false end if filename = dir() loop application.enableevents = true application.screenupdating = true set wkb =nothing set lastcell= nothing end sub 6 点击菜单栏运行-运行子过程-用户窗体。关闭代码输入窗口。打开excel工作簿8.可以看到下方已经多了很多新的工作表——此时，我们已经将之前的工作簿中的工作表都复制到了这一新建的工作簿中。