Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 2058|回复: 3

[已解决]多个工作簿多工作表汇总问题

[复制链接]
发表于 2015-12-25 16:59 | 显示全部楼层 |阅读模式
本帖最后由 1005423860 于 2015-12-30 09:48 编辑

请见附件、、、
最佳答案
2015-12-29 18:54
新文件夹.rar (38.14 KB, 下载次数: 30)

新建文件夹 (2).zip

26.92 KB, 下载次数: 29

 楼主| 发表于 2015-12-28 10:53 | 显示全部楼层
回复

使用道具 举报

发表于 2015-12-29 18:54 | 显示全部楼层    本楼为最佳答案   
新文件夹.rar (38.14 KB, 下载次数: 30)
回复

使用道具 举报

 楼主| 发表于 2015-12-31 10:53 | 显示全部楼层
zjdh 发表于 2015-12-29 18:54

您好,我仔细读了下您的程序,其中一段
  DRR = WK.Sheets(I).UsedRange                For C = 2 To UBound(DRR, 2) Step 2
                    For W = 2 To UBound(DRR)
                        If DRR(W, C) <> "" Then
                            K = K + 1
                            ReDim Preserve ARR(1 To 9, 1 To K)




                            ARR(C / 2 * 3 - 2, K) = B             '录入文件名称
                            ARR(C / 2 * 3 - 1, K) = DRR(W, C - 1)
                            ARR(C / 2 * 3, K) = DRR(W, C)
                        End If
                    Next: Next

这是通过分表所有统计内容都是间隔2个位置而写的step为2的一个循环,但如果分表A,B中的数据间隔并不是相同的,如修改后上传的附件,这又该怎么实现呢?

新文件夹.zip

44.75 KB, 下载次数: 6

回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-28 23:37 , Processed in 0.712236 second(s), 12 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表