查看: 1824|回复: 4
请教：怎么才能实现将一个文件夹里面多个表格内数据汇总到同一个表格呢？
阅读权限10
在线时间 小时
详见附件，请高人指点，谢谢！！！
22:46 上传
点击文件名下载附件
12.46 KB, 下载次数: 145
阅读权限30
在线时间 小时
Sub Macro1()
& & Dim MyPath$, MyName$, m&, sh As Worksheet, sht As Worksheet
& & Set sht = ActiveSheet
& & MyPath = ThisWorkbook.Path & &&
& & MyName = Dir(MyPath & &*.xls*&)
& & Application.ScreenUpdating = False
& & sht.UsedRange.Clear
& & Do While MyName && &&
& && &&&If MyName && ThisWorkbook.Name Then
& && && && &With GetObject(MyPath & MyName)
& && && && && & For Each sh In .Sheets
& && && && && && && && &m = m + 1
& && && && && && && && &With sh
& && && && && && && && && & If m = 1 Then
& && && && && && && && && && &&&.UsedRange.Copy sht.Cells(1, 1)
& && && && && && && && && & Else
& && && && && && && && && && && &.UsedRange.Offset(2).Copy sht.Range(&A& & Rows.Count).End(xlUp).Offset(1)
& && && && && && && && && & End If
& && && && && && && && &End With
& && && && && & Next
& && && && && & .Close False
& && && && &End With
& && &&&End If
& && &&&MyName = Dir
& & Loop
& & Application.ScreenUpdating = True
& & MsgBox &合并完成&, 0 + 64, &提示&
End Sub复制代码
阅读权限100
在线时间 小时
& & & & & & & &
本帖最后由 看见星光 于
23:11 编辑
Sub tt()
Dim ws As Workbook, path$, dr$
Application.ScreenUpdating = False
path = ThisWorkbook.path & &&
dr = Dir(path & &*.xls&)
ReDim brr(1 To Cells.Rows.Count, 1 To 20)
Do While dr && &&
& & If dr && ThisWorkbook.Name Then
& && &&&Set ws = Workbooks.Open(path & dr)
& && &&&arr = ws.Sheets(1).[a1].CurrentRegion
& && &&&For i = 3 To UBound(arr)
& && && && &k = k + 1
& && && && &brr(k, 1) = k
& && && && &For j = 2 To UBound(arr, 2)
& && && && && & brr(k, j) = arr(i, j)
& && && && &Next
& && &&&Next
& && &&&ws.Close False
& & End If
& & dr = Dir
Loop
Cells.ClearContents
[a1].Resize(2, UBound(arr, 2)) = arr
[a1] = &数据汇总&
[a3].Resize(k, UBound(arr)) = brr
Application.ScreenUpdating = True
& &
End Sub
复制代码
阅读权限100
在线时间 小时
(23.98 KB, 下载次数: 129)
23:12 上传
点击文件名下载附件
阅读权限10
在线时间 小时
非常感谢，虽然还不知道怎么弄，但目前可以用了。
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师关于excel多表格内容汇总到一个表中的问题_图文_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
关于excel多表格内容汇总到一个表中的问题
&&关于excel多表格内容汇总到一个表中的问题。
分表名称按单元格内容选择。
阅读已结束，下载文档到电脑
想免费下载更多文档？
定制HR最喜欢的简历
下载文档到电脑，方便使用
还剩1页未读，继续阅读
定制HR最喜欢的简历
你可能喜欢EXCEL中怎样将两个表的数据在另一个表中自动汇总
全部答案（共1个回答）
可以的：下面的表格名称假设是Sheet1、Sheet2、Sheet3、……上面是同一个工作簿的不同工作表。在上面的：A2输入=INDIRECT("Sheet"&ROW(A1)&"!B6")回车并向下填充（下同）B2输入=INDIRECT("Sheet"&ROW(B1)&"!A5")C2输入=INDIRECT("Sheet"&ROW(C1)&"!A4")D2输入——身份证号在哪？E2输入=INDIRECT("Sheet"&ROW(E1)&"!B7")F2输入=INDIRECT("Sheet"&ROW(相关信息)&"!A10")G2输入=INDIRECT("Sheet"&ROW(G1)&"!E20")H2输入=INDIRECT("Sheet"&ROW(H1)&"!B12")问题是，你的下表里面很多不规范，如：行政区划和姓名，你把具体地名或姓名和在一起，返回时会把整个单元格内容一同返回，（如：“行政区划 XX区XX镇XX村”或“姓名 王木木”），虽然可采用提取方法，但要保证输入规范，否则会乱的。如：你的下表B5是“姓名 王木木”，就在上表B2输入=MID(INDIRECT("Sheet"&ROW(B1)&"!A5"),4,LEN(INDIRECT("Sheet"&ROW(B1)&"!A5"))-3)建议最好吧他们拆开成两个单元格，再返回后面数据。
请见附件汇总表公式.公式看来复杂点,是因为将无数据单元格的错误符号隐藏了.
只要在汇总表"产品名称"列输入前三表存在的名称,汇总表将自动计算结果;前三表继续填写...
署名，方可上传附件。
在EXCEL附件，用实例说明“多张表格里相同名称下的数据”如何布局，你想把这些数据汇总在“另一张表格”什么位置。这样，才可能得到必要帮助！
我猜你的意思是：一个文件里是分部门考勤数据，另个文件里是汇总数据。
建议你在分部门表里做个数据透视表进行汇总，然后复制到汇总表里去。
如果两类数据是在同个xls...
可与专业软件技术人员联系，他们会有专业见解！
可以用VLOOKUP公式。
操作如下：先在你表1中电话号码后插入一空白列。现假设表1中，第一个电话号码是在A1，在B1单元格输入等号“=”，再插入函数，选择VL...
答: 香港怡东酒店(Excelsior Hotel)请问半海景房怎么升高级全海景房
答: 这个问题牵扯的面很大，涉及到软件的破解问题，三言两语说不清的。买破解版的软件应该没有这个问题了。要学破解的话，必须会用汇编语言。暂时说这么多。
答: 是U8财务套装吗? U861可以单机使用. 安装过程中不需要网络. 使用过程中可能有组件用到网络，但是不联网照样能用。
如果单机使用的话，那你只能用SERVER...
大家还关注
确定举报此问题
举报原因(必选)：
广告或垃圾信息
激进时政或意识形态话题
不雅词句或人身攻击
侵犯他人隐私
其它违法和不良信息
报告，这不是个问题
报告原因(必选)：
这不是个问题
这个问题分类似乎错了
这个不是我熟悉的地区
相关问答：123456789101112131415excel不同表格中的数据该怎么汇总到一个表格?
作者：佚名
字体：[ ] 来源：互联网 时间：10-28 11:17:20
excel不同表格中的数据该怎么汇总到一个表格?有时候我们将相同品种的商品放到一个工作表中，但是，整理的种类多了，怎么把所有的种类和数量汇总到一个表格中呢？这就用了excel中的数据应用关联，下面我们一起来看看详细的方法
在做报表过程中，有时候会遇到同一个工作簿含有多张工作表问题，比如有80张工作表，要对它进行汇总和统计，需要引用每张工作表的数据。如果逐一进行复制粘贴，那是不可能的，时间不允许，怎么办呢？
1、需要解决的问题。在这里为了方便起见，我提供一个比较简单的工作簿，来说明问题。这个工作簿记录了一家电器销售商店某个月5个分店的三种电器销售量。现在要对它们进行汇总，评定各分店业绩。打开工作簿文件，可以看到第一张工作表记录的第一分店的销售情况。
2、插入一张新工作表。单击插入菜单，选择工作表。在底下的标签马上显示第六张工作表SHEET6，等一下我要把汇总情况放在这张表上。
3、编辑新工作表。输入必要的内容，如下图所示。接下来，我要把每个点的销售数据汇总到这张表上，你可能会问，这有什么难度，复制粘贴就好了。好了，我给你100张工作表，让你去复制吧。我们做事要讲究效率。
4、调用函数进行汇总。单击B2单元格，输入公式=INDIRECT(&Sheet&&ROW(B1)&&!B2&)，这个函数里嵌套一个行号函数ROW，&Sheet&&ROW(B1)相当于Sheet1，，括号内的字符串表示引用第一张工作表的B2单元格数据。输入好公式后按回车键确定。这时显示数据32。注意ROW(B1)=1。
5、用填充柄向下复制公式，可以看到第二行的公式是=INDIRECT(&Sheet&&ROW(B2)&&!B2&)，就是说，在目标处，放入第二张表格的B2单元格数据，依此类推。注意ROW(B2)=2。
6、洗衣机的列也一样，使用填充柄，由B2向右复制，然后把公式中的B2改成C2，row括号里的单元格自动改成了C1。按回车键确认。
7、再次使用填充柄向下复制公式。最后一列的做法也一样。向右复制公式，把C2改变为D2即可。
8、汇总结果。然后用填充柄向下复制公式。这是最后得到的汇总表。如果我们要对每一类电器销售量进行合计，可使用求和函数。
9、分类合计。调用求和函数，选择好求和区域，按回车键。
10、使用填充柄向右填充。
11、对不同工作表数据求和。有时候我们不需要汇总表格所有数据，只需要了解某一电气的总销售量，怎么办呢？如图，单击B2单元格，输入公式=SUM（Sheet1:Sheet5!B2）,意思是对第一张到第五张表格的B2单元格数据求和。按回车键。
12、然后使用填充柄向右复制公式，可得其他电器销售总量。通过本例的操作，你一定了解了如何对不在同意工作表的数据进行调用和计算的方法。excel函数功能很强大，系统提供的示例往往比较简单，难以应付各种复杂的情况。所以把这个问题提出来，对大家很有帮助。
相关推荐：
大家感兴趣的内容
12345678910
最近更新的内容苹果/安卓/wp
积分 209, 距离下一级还需 51 积分
权限: 自定义头衔
道具: 彩虹炫, 涂鸦板, 雷达卡, 热点灯, 金钱卡, 显身卡, 匿名卡下一级可获得
权限: 签名中使用图片
购买后可立即获得
权限: 隐身
道具: 金钱卡, 彩虹炫, 雷达卡, 热点灯, 涂鸦板
上火签到天数: 11 天连续签到: 1 天[LV.3]偶尔看看II
18:28:25 上传
请教各位一个问题，我有1000多份格式完全相同的EXCEl表格，我要取其中固定的某几格的数据，每一个EXCEL表格有多张SHEET。附件中是我的一个样本，我要取其中SHEET1和3的H4-H20的数据，并且把它汇总到一个新的表格中，请问有什么办法吗？
载入中......
用一段代码，核心部分如下
filename = Application.GetOpenFilename(&Excel文件(*.xls),*.xls&, MultiSelect:=True)
& & For Each fn In filename
谢谢哈，我试试看
1、在一张空的工作表中，复制一张相同格式的表格，数据清空；
2、在第一要汇总的单元格输入“=”，再点另一张相同位置的单元格，输入“+”，再点下一张相同位置的单元格.......依次类推，然后，回车确定；
3、将该单元格的复制到每个空的单元格；
4、检查结果是否正确。
&nbsp&nbsp|
&nbsp&nbsp|
&nbsp&nbsp|
&nbsp&nbsp|
&nbsp&nbsp|
&nbsp&nbsp|
如有投资本站或合作意向，请联系（010-）；
邮箱：service@pinggu.org
投诉或不良信息处理：（010-）
论坛法律顾问：王进律师