[已解决]汇总数据的两个问题

czl103

哪位大神帮忙看一下，如何修改代码可以满足下面的要求，不胜感激！

1，现在是以列标来选择要汇总的数据列，可否换为用标题确定要汇总的数据列？
2， B列标题出现了三次，如何修改代码可以改成一次？

最佳答案

月排行榜 / 总排行榜

chart888

2017-8-9 16:07

czl103 发表于 2017-8-9 15:37
没表达清楚，抱歉，是每个人的汇总，比如大乔：1,400,000 张飞：73,826 而不是将他们的每个值列出来

是我代码的问题我改了下

跳转到最佳答案楼层

chart888

第二个问题解决了
第一个问题没有看明白你说的意思

chart888

是通过“贷款品种”来确定数据所在的列吗？

czl103

chart888 发表于 2017-8-8 19:54
是通过“贷款品种”来确定数据所在的列吗？

最好可以根据需要任意选择，比如“贷款品种”、“签约日期”等等。就是可以自定义选那列，比如改个关键字啥的。

chart888

你是数据不是只统计
“贷款品种”和“综合费用合计”这两列的吗
已经修改好了，这两列通过列名字确认列所在的列好

czl103

chart888 发表于 2017-8-9 10:04
你是数据不是只统计
“贷款品种”和“综合费用合计”这两列的吗
已经修改好了，这两列通过列名字确认列所 ...

谢谢大神　没问题　
我是想能否通过更改关键字实现随意取列汇总的功能，我将其中“贷款品种”改为“客户”之后，就取不出来数了。详见附件。麻烦您帮忙给看下咋改。[em17]

chart888

1. For j = 1 To UBound(Arr, 2)
   
2.             If Arr(2, j) = "客户" Then c1 = j
   
3.             If Arr(2, j) = "综合费用合计" Then c2 = j
   
4.         Next

复制代码

这段你要改了，因为你的分表里面的列标题是“客户姓名”，所以你要改成

1. For j = 1 To UBound(Arr, 2)
   
2.             If Arr(2, j) = "客户姓名" Then c1 = j
   
3.             If Arr(2, j) = "综合费用合计" Then c2 = j
   
4.         Next

复制代码

czl103

chart888 发表于 2017-8-9 13:19
这段你要改了，因为你的分表里面的列标题是“客户姓名”，所以你要改成

谢谢 我改了 问题是现在成了提取数据，不是汇总数据了，大神帮忙看看这是啥情况？

chart888

是这样吗？
我改了下

czl103

chart888 发表于 2017-8-9 14:44
是这样吗？
我改了下

没表达清楚，抱歉，是每个人的汇总，比如大乔：1,400,000 张飞：73,826 而不是将他们的每个值列出来