在excel中如何将多个工作表合并为一个表？
在excel中如何将多个工作表合并为一个表？
09-02-04 &
将多个字段中的数据粘贴到一个窗体中时,Access 将数据粘贴到与源字段同名的字段中,无论它们在窗体中的顺序如何。如果...若要导入来自多个工作表的数据,请为每个工作表重复执行导入操作。 下面是需要将 Excel 数据导入 Access 的常见情形
请登录后再发表评论!
1、如果是把一个excel文件中的多个工作表合并成一个工作表，那选择其他工作表的内容后，剪切（Ctrl+X），粘贴（Ctrl+V）到合并后的工作表。 2、如果是把多个excel文件中的工作表合并到一个excel文件中时。打开其他excel文件，右键工作表的名称，“选定全部工作表”，“移动或复制工作表”，然后在对话盒中选择目的工作簿就可以了。
请登录后再发表评论!
估计这个需要编程实现的。excel支持宏和vb
请登录后再发表评论!
用我的工具！《Excel工具集－合并工作表之01》
请登录后再发表评论!
据我所知，只有靠复制。
请登录后再发表评论!
武汉派先科技自主研发的《百分百excel合并汇总超级专家》，可以方便、快捷的解决您所说的问题。详情登录:咨询热线：027-
请登录后再发表评论!
用VBA轻轻松松地实现了这一操作，下面以合并学生的成绩表为例进行说明，其它的原理相同。假设我们将所有考生的成绩合并到Sheet1中。在当前的工作表中用“控件工具箱”画一个命令按钮并命名为“合并成绩”（如图所示），双击后在其Click事件中输入下面的代码：Private Sub CommandButton1_Click()’统计要合并的工作表的数量（循环次数）For i = 2 To Sheets.CountWorksheets(i).Select’选择各工作表中的数据区域并复制Worksheets(i).Select’选择各工作表中的数据区域并复制irow = Worksheets(i).[B65536].End(xlUp).RowActiveSheet.Range(’A2:AA’ && irow).SelectSelection.Copy’粘贴到第一张工作表中Worksheets(1).Selectmrow = [a65536].End(xlUp).Row + 1Range(’A’ && mrow).SelectActiveSheet.PasteNext i’主体程序执行完毕[a1].SelectCommandButton1.Enabled = Falsecountall = ’一共合并了’ + Str([a65536].End(xlUp).Row - 1) + ’个学生的成绩,数据表合并成功！’ 　　MsgBox countall, vbOKOnly, ’提示信息’End Sub程序中“ActiveSheet.Range(’A2:AA’ && irow).Select”的功能用于选择每张工作表除了第一行以外的数据区域（第一张工作表除外）。小提示：在进行本操作之前，首先要保证每张工作表的字段顺序是一致的，且每张成绩中第一行是表格的标题行。要做到这一点也行容易，可事先将制作好的Excel文件用“共享工作簿”的方法共享给老师们以便于他们录入成绩。
请登录后再发表评论!
用语言表达是很复杂的。看教程很快上手了~
请登录后再发表评论!上传时间：
Excel 2007 演示:将多个单元格的内容合并到一个单元格中
56官方微信
扫一扫发现精彩如何快速的合并多个 Excel 工作簿成为一个工作簿？
晚上试了一下，楼主的方法可行，谢谢。 补充一点，如果是 2007版本，把 代码中的 xls
修改为 xlsx就可以了。
按投票排序
没人给直接答案，那我自问自答了。
的确去百度了下，出现了很多种方法，但是，目前就这个方法行得通，跟大家分享下：
用一个VBA就可以实现的。使用方法：1、新建一个工作薄，将其命名为你合并后的名字。2、打开此工作薄。3、在其下任一个工作表标签上点击右键，选择“查看代码”。4、在打开的VBA编辑窗口中粘贴以下代码：
Sub 工作薄间工作表合并()
Dim FileOpenDim X As IntegerApplication.ScreenUpdating = FalseFileOpen = Application.GetOpenFilename(FileFilter:="Microsoft Excel文件(*.xls),*.xls", MultiSelect:=True, Title:="合并工作薄")X = 1While X &= UBound(FileOpen)Workbooks.Open Filename:=FileOpen(X)Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)X = X + 1WendExitHandler:Application.ScreenUpdating = TrueExit Suberrhadler:
MsgBox Err.DescriptionEnd Sub
5、关闭VBA编辑窗口。6、在excel中，工具---宏---宏,选“工作薄间工作表合并”,然后“执行”。7、在打开的对话窗口中，选择你要合并的300个工作薄。8、等待。。。。ok！来源：
最高票回答是把多个工作簿合并成一个工作簿中的多个sheet，看到有朋友需要进一步合并成一个sheet中的多行。现补充分享如下：使用方法：1、在包含多个sheet的工作簿中（如多个工作簿合并后含n个sheet的工作簿），新建一个sheet2、在新建的sheet标签上点击右键，选择“查看代码”3、在打开的VBA编辑窗口中粘贴以下代码：Sub 合并当前工作簿下的所有工作表()Application.ScreenUpdating = FalseFor 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 IfNextRange("B1").SelectApplication.ScreenUpdating = TrueMsgBox "当前工作簿下的全部工作表已经合并完毕！", vbInformation, "提示"End Sub运行即可。
Sub Macro1()
Dim MyPath$, MyName$, sh As Worksheet, sht As Worksheet, m&
Set sh = ActiveSheet
MyPath = ThisWorkbook.Path & "\"
MyName = Dir(MyPath & "*.xls")
Application.ScreenUpdating = False
Cells.ClearContents
Do While MyName && ""
If MyName && ThisWorkbook.Name Then
With GetObject(MyPath & MyName)
For Each sht In .Sheets
If IsSheetEmpty = IsEmpty(sht.UsedRange) Then
If m = 1 Then
sht.[a1].CurrentRegion.Copy sh.[a1]
sht.[a1].CurrentRegion.Offset(1).Copy sh.[a65536].End(xlUp).Offset(1)
.Close False
MyName = Dir
Application.ScreenUpdating = TrueEnd Sub
使用安装后，在“企业”-&“汇总"里，就可以解决你的问题。这是一个增加工具。另外我想说的是，搜索的使用，用谷歌+英语关键词来搜索。使用百度，你总是很难找到答案的。
我搜索到这个问题是因为想把20多个csv文件合并成一个，google到一个非常简单的办法不知道切不切题。
合并工作薄,合并工作表多薄多表合并——excel 外接程序插件使
明几百个工作薄、几千个工作表，要汇总？怎么办？复制、粘贴……？搞死人，而且易出错！多薄多表合并，一键帮你搞定！
——mergebooks.dll下载地址：
访问密码 46d7一、功能：1、多薄合并：将某一文件夹或当前文件夹下所有工作薄合并到一个自动新建的“汇总表”工作薄中。每个工作薄中可含多个不同的工作表，工作表与工作表一一对应（合并）。默认合并当前文件夹下的所有工作薄；在启动excel后（未保存）的新工作薄中点击该按钮则打开“文件夹选择”对话框。2、多表合并：将当前工作薄中所有工作表合并到一个自动生成且位于最后的“汇总表”工作表中。3、清除数据：清除当前工作表或当前工作薄中所有工作表数据。 默认“取消”按钮（即按Enter后）仅清除当前工作表中的数据。4、分类汇总：根据所选区域第一列中各行对其后各列数据进行汇总（求和）。分类汇总后将汇总结果放置到所选择的目标区域，汇总结果的第一列中各行不存在重复数据，即第一列“去除重复行”，其后各列数据求和或文本联接。5、拆分表格：根据所选区域第一列中各行内容拆分为许多工作表，以第一列中各行内容为工作表名称，并复制其后面的各列内容。6、选择查询：根据所选区域第一列中各行内容和所选单元格中的内容进行查找，并将查询结果（符合查询条件的许多行）放置到所选择的目标区域。二、注意：多薄合并、多表合并：要合并的工作薄（或工作表）格式必须一致；工作表一一对应；所有工作表的表头行数必须相同；仅复制表头以下的行；多薄多表合并，具有“去除重复行”功能，即一行中所有数据均相同的行仅保留一行；工作表下方不要有备注行。三、安装使用：1、 安装时可能受360警告或拦截，这是正常提示，选择“添加信任”或“直接运行”即可。安装完成后，在excel2003工具栏、excel2010“加载项”中会出现——“多薄合并、多表合并、清除数据、分类汇总、拆分表格、选择查询”等功能按钮。2、默认安装位置为C:\WINDOWS\mergebooks. 如果电脑进行了多用户设置，如电脑用户为lcb,可把mergebooks.dll复制到C:\Documents and Settings\lcb\Application Data\Microsoft\AddIns\mergebooks.dll
中。3、安装完成后，如果在excel2003工具栏、excel2010“加载项”中没有以上功能按钮，则按如下方法进行：
打开excel,在“工具栏”上点击“COM加载项”。
这种谷歌一下马上就可以出来在知乎问真的合适吗。 今天刚好要用到搜了一下，可以实现，方法也很简单：将要合并的excel工作簿放在一个文件夹，在文件夹内新建一个excel，命名后保存。在新建excel内
ALT+F11 ,双击左方工程资源管理器里面的sheet1(sheet1),在代码区粘贴如下代码。运行。代码为：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 = 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 sheets.count wb.sheets(g).usedrange.copy .cells(.range("a65536").end(xlup).row + 1, 1) next wbn = wbn & chr(13) & wb.close false end with end if myname = dir loop range("a1").select application.screenupdating = true msgbox "共合并了" & num & "个工作薄下的全部工作表。如下：" & chr(13) & wbn, vbinformation, "提示" end sub
在微博的上看到的, 可以使用excel 2010的导入外部数据功能, 通过写sql 很容易就把多个文件合并到一个文件中了. 应该是最佳答案了, 但2003可能只能用vba了.
最后我想说的用vba解决的都不是最好的方法,而是一种暴力方法.
我不会vba，一般我都是用Python，或者matlab，几千个csv数据全提取放到一个数据库里，然后就可以随便分析了。PS：合并到一个excel里太大没法打开。
找个易用宝插件，里面有相关的功能。很容易搞定
已有帐号？
无法登录？
社交帐号登录