Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师查看: 1184|回复: 6
加总并提取同一文件夹下另一工作簿中各工作表相同位置的数据
阅读权限10
在线时间 小时
本帖最后由 waterman927 于
15:37 编辑
在同一个文件夹下有“基础表”和“汇总表”两个工作簿。其中基础表中有若干张工作表，其命名规则无规律，每张工作表具有相同的格式。
现在求一段代码，想实现的功能是，打开汇总表并运行代码后，自动将基础表中每张工作表里对应单元格的数据进行加总后，提取到汇总表的对应单元格中。
比如：汇总表sheet1中C5单元格的值等于基础表中每张工作表C5值的和。
已将基础表作为附件上传。还望各位大侠不吝赐教，万分感激！
15:30 上传
点击文件名下载附件
15.46 KB, 下载次数: 17
阅读权限150
在线时间 小时
&& & 楼主在设计数据表时，未考虑到充分发挥Excel软件的内置功能，为以后对数据的积累、修改、引用和汇总造成了很大困难……
& & 建议楼主参考下帖附件中的文字说明，修改工作表的设置，首先要建立好记录日常所发生数据的“一维数据表”。我们的目的是使用好Excel，实现对数据的管理，而不是制作软件。因此要充分发挥 Excel 自带的强大功能，例如“高级筛选”、“数据透视表”等等，再用函数和代码等方法作为补充，以降低制作和修改难度，提高工作效率。
& & 以上浅见是个人观点，不代表论坛立场。{:soso_e113:}&
★Excel数据管理的一般规律★& &
阅读权限10
在线时间 小时
充分理解也非常赞同你的看法，但现实情况是这样，我上面提到的“基础表”并不是我手工编制的，而是从系统中自动提取出的，这与实际的业务情况有关，实际的excel文件中有几十张格式相同的工作表，所以希望能通过代码解决问题也是迫不得已，还希望高手们拔刀相助阿！！！
阅读权限95
在线时间 小时
这个问题不需要编程，用公式就很容易实现，当每个子表数据发生变化时，汇总表中的数据跟着变化。详见附件。
09:51 上传
点击文件名下载附件
50.6 KB, 下载次数: 33
阅读权限95
在线时间 小时
传错了。是下面附件。
09:53 上传
点击文件名下载附件
8.95 KB, 下载次数: 35
阅读权限10
在线时间 小时
多谢回复，不过我是希望将数据汇总提取到另外一张工作簿中（而不是工作表中），因为后续还要链接到其他计算公式。所以你的方法还是无法解决问题啊。
另外，也不希望同粘贴复制的方法，将你这种方法得到的汇总表复制过去，因为在实际情况中，需要有很多次这样的操作。
因此还是希望通过代码或其他方法解决问题。还望高手们帮忙啊！！！
阅读权限10
在线时间 小时
顶起来，继续求助！！！
最新热点 /1
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师查看: 881|回复: 6
怎么将总表里的信息显示到其它工作簿中
我想将&总名单“里的信息，按照部门类型分别自动显示到相应”A部门“、”B部门“....而且以后在&总名单“里的部分人员的信息可能删除或增减，而希望在其相应的部门所在工作簿也能自动删除或增加。具体如附件，希望高手指教。非常感谢。
23:22 上传
点击文件名下载附件
3.88 KB, 下载次数: 16
给你做了，不过更新要手动一下
01:42 上传
点击文件名下载附件
7.49 KB, 下载次数: 10
谢谢kamei ，有没有其它更好点的方法，不用人工操作会自动更新的？
导入数据，编辑oLE DB查询
(10.24 KB, 下载次数: 1)
15:11 上传
点击文件名下载附件
还可以用高级筛选呀
(6.49 KB, 下载次数: 1)
16:54 上传
点击文件名下载附件
,这样子也可以！
谢谢各位，虽然与我想要的有一定差距，但还是非常感谢。
Powered by查看: 1023|回复: 7
将多个工作簿内容汇总到一个工作簿的工作表里
阅读权限30
在线时间 小时
(14.16 KB, 下载次数: 14)
21:17 上传
点击文件名下载附件
阅读权限90
在线时间 小时
有好多项，
是不是只要提取 项目订单 中的蓝色背景的数据是吗？
阅读权限30
在线时间 小时
有好多项，
是不是只要提取 项目订单 中的蓝色背景的数据是吗？
是的，麻烦老师帮忙写段代码
& && && && &
阅读权限90
在线时间 小时
Sub b() 'bajifeng
pth = ThisWorkbook.Path & &\&
f = Dir(pth & &*.xls?&)
Do While f && &&
& & If f && ThisWorkbook.Name Then
& && &&&Set wbn = Workbooks.Open(pth & f)
& && &&&n = n + 1
& && &&&ReDim br(1 To 9, 1 To n)
& && &&&br(1, n) = n
& && &&&br(2, n) = [b4]
& && &&&br(3, n) = [a11]
& && &&&br(4, n) = [f11]
& && &&&br(5, n) = [f4]
& && &&&br(6, n) = [h4]
& && &&&br(7, n) = [j6] & & & & [k6]
& && &&&br(8, n) = [c8]
& && &&&wbn.Close False
& & End If
& & f = Dir
Loop
[b4:i4].Resize(n) = Application.Transpose(br)
End Sub复制代码
阅读权限90
在线时间 小时
& & & & & & & &
自己加个按钮，不知道您的工作表怎么了，我这里加不了按钮。
21:54 上传
点击文件名下载附件
28.04 KB, 下载次数: 18
阅读权限90
在线时间 小时
仔细看了一下，原来你组合了工作表。
您先取消组合，把按钮指定代码，然后再组合工作表接口。
阅读权限30
在线时间 小时
自己加个按钮，不知道您的工作表怎么了，我这里加不了按钮。
我这里测试错误，用不了
阅读权限30
在线时间 小时
我这里测试错误，用不了
QQ图片21.png (10.13 KB, 下载次数: 6)
22:08 上传
最新热点 /1
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师}