[字典嵌套][三维数组]对结构基本相同、同名工作表列项目不同的多个工作簿按表名汇总

qinhuan66

谢谢 赵老师的作品

xd0718

分类汇总工作表，自动生成新工作簿,跪求赵大侠帮忙
基本情况：文件夹中有多个子文件夹和工作簿。我要使用的工作簿只有名字中含有“分类台账”字样的工作簿。这里只列示了两个文件夹，实际工作中有很多。分类台账分为：应收款台账和固定资产台账两类，而每个单位的分类台账工作簿中又包含“正常”、“关注”、“次级”、“可疑”、“损失”五个工作表。
       要求实现的目标：将所有含有“应收款台账“字样的工作簿按“正常”、“关注”、“次级”、“可疑”、“损失”依次分类汇总，然后另存为一个新工作簿，将所有含有“固定资产台账”字样的工作簿按“正常”、“关注”、“次级”、“可疑”、“损失”依次分类汇总后另存为一个新工作簿。

xd0718

对代码中有几处看不懂,请赵大侠赐教.
        Set d(.Name) = New Dictionary '[字典嵌套]定义各工作表行汇总字典，用以记录各工作不重复“客户名称”行号
     Set ds(.Name) = New Dictionary '[字典嵌套]定义记录各工作表表头不重复项目列号字典
set  语句在这里是重新定义字典还 是给字典赋值呀？
                             ds(.Name)(arr(1, i)) = d3(.Name) '记录各个工作表列号
   这个ds(.Name)(arr(1,i))是什么意思呀？是不是就是所谓的多层字典呀？如果是，请给解释一下用法吧。

kszcs

很好的汇总工具，

sblp007

感觉看起来很吃力，功力差的太远了。

mzbao

站位学习，呵呵

wgw628

写得太好了！{:soso_e179:}

kszcs

赵老师：在这个基础上，能增添行项目的筛选汇总功能吗？

chlt1888

zhaogang1960 当选版主，名至实归！人品好，本领高，佩服！

7786910

谢谢了，下来学习！