you have been blocked在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表格合并成一个EXCEL表格
怎样把多个EXCEL表格合并成一个EXCEL表格
var sogou_ad_id=731547;
var sogou_ad_height=160;
var sogou_ad_width=690;查看: 4285|回复: 7
多个工作表按照多列相同数据合并、汇总到一个数据透视表中
阅读权限10
在线时间 小时
(1.73 KB, 下载次数: 45)
18:12 上传
点击文件名下载附件
公司有好多产品有多个BOM表（对应不同部件），这些不同部件会用到相同物料，为了便于采购，需要对同一产品的所有BOM表进行汇总，之前在一个表按照网上的透视图（不是多重计算）可以用；
现在是多个表（见附件范例），按照网上的合并计算，列名称不知道怎么弄，求高手赐教
1.jpg (25.14 KB, 下载次数: 23)
18:10 上传
2.jpg (62.08 KB, 下载次数: 24)
18:10 上传
阅读权限95
在线时间 小时
&按照网上的合并计算，列名称不知道怎么弄&，不太能理解这句话，另外感觉你给的数据不是能很好地与你的问题结合。
阅读权限70
在线时间 小时
& & & & & & & &
辅助.gif (882.61 KB, 下载次数: 34)
18:34 上传
加个辅助列
阅读权限70
在线时间 小时
Sub 汇总()
& & Dim Arr, i%, j%, drow%, k%, ddrow%, d1, d2, d3, Brr(), k1
& & Set d1 = CreateObject(&scripting.dictionary&)
& & Set d2 = CreateObject(&scripting.dictionary&)
& & Set d3 = CreateObject(&scripting.dictionary&)
& & Dim sht As Worksheet& && &&&'定义sht 为工作表
& & For Each sht In Worksheets
& && &&&With sht
& && && && &If .Name && &汇总& Then
& && && && && & drow = .Range(&a65536&).End(xlUp).Row
& && && && && & Arr = .Range(&a2:g& & drow)
& && && && && & For i = 1 To UBound(Arr)
& && && && && && &&&d1(Arr(i, 1) & &@& & Arr(i, 2)) = d1(Arr(i, 1) & &@& & Arr(i, 2)) + Arr(i, 5)
& && && && && && &'&&d2(Arr(i, 1) & &@& & Arr(i, 2) & &@& & Arr(i, 3) & &@& & Arr(i, 4)) = d2(Arr(i, 1) & &@& & Arr(i, 2) & &@& & Arr(i, 3) & &@& & Arr(i, 4)) + Arr(i, 6)
& && && && && && &'&&d3(Arr(i, 1) & &@& & Arr(i, 2) & &@& & Arr(i, 3) & &@& & Arr(i, 4)) = d3(Arr(i, 1) & &@& & Arr(i, 2) & &@& & Arr(i, 3) & &@& & Arr(i, 4)) + Arr(i, 7)
& && && && && & Next
& && && && && & ' ddrow = Worksheets(&汇总&).Range(&a65531&).End(xlUp).Row
& && && && && & '&&MsgBox ddrow
& && && && &End If
& && &&&End With
& & Next
& & k1 = d1.keys
& & ReDim Brr(0 To d1.Count, 1 To 4)
& & For i = 0 To d1.Count - 1
& && &&&Brr(i, 1) = Split(k1(i), &@&)(0)
& && &&&Brr(i, 2) = Split(k1(i), &@&)(1)
& && &'&&Brr(i, 3) = Split(k1(i), &@&)(2)
& && &'&&Brr(i, 4) = Split(k1(i), &@&)(3)
& & Next
& & Worksheets(&汇总&).Range(&a2&).Resize(d1.Count, 2) = Brr& & '通过数组把数据复制到目标区域中
& & Worksheets(&汇总&).Range(&e2&).Resize(d1.Count, 1) = Application.Transpose(d1.items)& & '通过数组把数据复制到目标区域中
&&'&&Worksheets(&汇总&).Range(&f2&).Resize(d1.Count, 1) = Application.Transpose(d2.items)& & '通过数组把数据复制到目标区域中
& &' Worksheets(&汇总&).Range(&g2&).Resize(d1.Count, 1) = Application.Transpose(d3.items)& & '通过数组把数据复制到目标区域中
End Sub复制代码
阅读权限70
在线时间 小时
可以用批量汇总，直接修改了刚刚写的一个代码，看看行不？
18:40 上传
点击文件名下载附件
11.91 KB, 下载次数: 78
阅读权限10
在线时间 小时
念无 发表于
加个辅助列
谢谢你的回复，操作动画让你费心了
你的方法很灵活，灵活的增加了辅助列，不过好像结果并非数量列的数字相加，只是统计前两列（辅助列）相同项的数目
阅读权限10
在线时间 小时
& & & & & & & &
TomingTang 发表于
可以用批量汇总，直接修改了刚刚写的一个代码，看看行不？
你的宏可以满足要求：统计前两列（实际上和楼上一样利用前两列生成了一个辅助列用来对比前两列是否相同）相同行，并将相同行的数量相加（累计）
太谢谢了！
顺便说一下：你的logo也很牛气！
阅读权限70
在线时间 小时
loggerjy 发表于
谢谢你的回复，操作动画让你费心了
你的方法很灵活，灵活的增加了辅助列，不过好像结果并非数量列的数字 ...
你可以自己试试，可能是我操作中出错了，但是方法应该还是可行的
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师怎么把几张excel表格中的内容合并到一张表里？ - 略晓 怎么把几张excel表格中的内容合并到一张表里？
我手里有几份客户的数据资料，按照不同的项目整理的，虽然这些资料里客户名单都一样，但是因为按照不同类型归类，所以名单排序是不一样的。怎么把这几份独立的资料整合到同一张表格里？
威客【Witkey】，设计、用户体验改进、信息检索、IT 【 QQ: 】
也许我没有理解正确，是不是这样的？
新建列表页，然后把不同用户的资料复制粘贴到不同的列表页。
?????请关注咱的“龟壳”晓站....
以前考计算机国二学VF时用sql语言可以合并。。。
简单易实施的办法：
把这几个表的内容拷贝到一个表里
按客户名称排序
这样名字相同的就挨一起了
然后手动把相同名字合并居中就行了
互联网挨踢人士 | 手工作坊东东定制ing！手工包、小饰品、摆件…告诉我你想要什么？
不知道你这几个表里的主键是姓名还是编号？现假设如下：
你在EXCEL里有三张表：“姓名+职业”、“姓名+年龄”、“姓名+联系方式”，主键（即能惟一确定其中一个人的字段）就是姓名（假如没有重名）。表格形式如下（为了节省时间，姓名顺序一样，但不一样也不影响算法的实现）
现在我要把“姓名+年龄”和“姓名+联系方式”两个表中的信息如第1张表“姓名+职业”合并，操作如下：
1、先在第1张表C列分别输入其他表中信息的名称，如年龄、联系方式等，以示区分
2、利用VlOOKUP函数+下拉填充的方法，分别从其他几个表中把信息匹配过来
3、截图如下
如有其他项目需要匹配，以此类推。
Alfred Swiss
Alfred Swiss
我觉得应该把表截图出来，或者描述的更详细些
文艺范理工男，不甘寂寞型技术宅！
我用我自学的那点EXCEL知识，在网上找了半天，逛了N多相关论坛，结果也没弄明白。
反倒因此激起我想学习这个功能的兴趣，于是
又按照其它楼层的办法试了下，要么是不理解，要么是不可行。。。
最后，我还是通过，复制+粘贴一个个完成了。。
做爱做的事，交配交的人。。。
说那么多不如贴几张图实际
war3爱好者
选择一个方式完成你的提交
用已有略晓帐号登录略晓
填写以下信息，注册同时发布答案
用于登陆以及找回密码
用户名是唯一的，一旦输入不能修改
我已阅读并同意略晓的《》