求助一个能自动生成汇总表的代码

财知道

想实现功能：
1、按右侧的“导出数据”能直接生成表“导出数据”；（自动生成，意思是“导出数据表”在点生成前是不存在的）
2、“导出数据表”是对查询表的汇总，汇总规则：Ａ列到Ｊ列、Ｌ列至Ｒ列所有数据相同的视为相同记录，对Ｋ列数值进行汇总显示。（比如，黄色的二条记录，在导出数据表里就汇总成一条了）

LMY123

同薄多条件，单列分类汇总

chaohuahch

要A~J、L~R全部相同才是相同的。这是一个体力活，给个方案，把A~J、L~R列在同一行的数据，组成以给字符串，放入字典。然后相同的key值，K列相加。

财知道

chaohuahch 发表于 2018-8-16 15:09
要A~J、L~R全部相同才是相同的。这是一个体力活，给个方案，把A~J、L~R列在同一行的数据，组成以给字符串， ...

能实现我要的功能就行，我是小白，大侠你看着改

财知道

顶起啊，别沉下去了，

xiangbaoan

财知道 发表于 2018-8-16 16:43
顶起啊，别沉下去了，

…………决定帮一把，仅供测试，正确的话~~~~~~

财知道

xiangbaoan 发表于 2018-8-16 16:51
…………决定帮一把，仅供测试，正确的话~~~~~~

非常棒！！已能实现我的梦想。有点小不足：生成的导出数据表把最后领导审批那行也变成了文件号的内容，导致多了一空行，能完善一下就更完美了。送花花给你哦！！

财知道

财知道 发表于 2018-8-17 08:07
非常棒！！已能实现我的梦想。有点小不足：生成的导出数据表把最后领导审批那行也变成了文件号的内容，导 ...

鲜花怎么送，郁闷！！！

财知道

xiangbaoan 发表于 2018-8-16 16:51
…………决定帮一把，仅供测试，正确的话~~~~~~

找到送花了，小白一个，不要笑话啊，　加个好友，新手请多关照

lsc900707

财知道 发表于 2018-8-17 08:07
非常棒！！已能实现我的梦想。有点小不足：生成的导出数据表把最后领导审批那行也变成了文件号的内容，导 ...

将代码   For r = 4 To UBound(ar) 改为：For r = 4 To UBound(ar) - 1就好！