[已解决]请求帮忙 ：自动分类汇总

lokisandra

grf1973 发表于 2015-5-22 14:31
严谨一点应该这样区别在第9行，考虑到某客户名中包含另一客户名的情况。

谢谢。你真是太好了。再次请教一下，
（1）

•             .[a1].Resize(n + 1, 2) = brr
•             .[a2].Resize(n, 2).Sort key1:=.[a2]
  

这两句 是什么意思？


.[a1]这个是什么用途 ？ 如何 区别 升序 和 降序？

如果 相反 我想把 总金额 进行 降序 排序，应该如何更改？

（2) 下面这句，如果放在 with sheet2 之后是不是 一样？ 我尝试了一下，放在with sheet2 后 没有 改变，那么 放在 前面的作用是 什么 ？

•     brr(0, 1) = "客户": brr(0, 2) = "总金额"
  

（3） 这个不太懂 ， 逗号 ， 代表 已统计过的客户?

•     x = ","        '已统计过的客户名单
  

(4）这个不太懂

• If InStr(x, "," & arr(i, 2) & ",") = 0 Then        '表示该客户未被统计过
•             x = x & kh & ","
  

我完全小白，感谢那么 详细帮我解答。万分感激

grf1973

（1）
            .[a1].Resize(n + 1, 2) = brr
            .[a2].Resize(n, 2).Sort key1:=.[a2]

这两句 是什么意思？
答：这要结合上面的with 语句，第一句是以sheet2的A1单元格为左上点，向下n+1行，向右2行的区域的数值用brr填充，第二句是sheet2的A2单元格为左上点，向下n行，向右2行的区域进行排序（以A列为排序依据），默认为升序，如果想要降序，后面要加一句 order1:=xldescending

.[a1]这个是什么用途 ？ 如何 区别 升序 和 降序？
答：确定所操作区域的左上点，.[a1].resize(a,b)表示以A1单元格为左上点，向下a行，向右b行的区域。


（2) 下面这句，如果放在 with sheet2 之后是不是 一样？ 我尝试了一下，放在with sheet2 后 没有 改变，那么 放在 前面的作用是 什么 ？
    brr(0, 1) = "客户": brr(0, 2) = "总金额"
答：放在前后没关系的。因为只是对数组进行赋值，还没显示到工作表中。

（3） 这个不太懂 ， 逗号 ， 代表 已统计过的客户?
    x = ","        '已统计过的客户名单
答：不是逗号代表 已统计过的客户。而是变量x代表已统计过的客户。如果客户未统计过，循环到客户名时就到客户名加到变量x中，如果已统计过，就可置之不理。x=","只是对x赋初值。

(4）这个不太懂
If InStr(x, "," & arr(i, 2) & ",") = 0 Then        '表示该客户未被统计过
            x = x & kh & ","
答：如前所述，变量x代表已统计过的客户。如果客户未统计过，就把客户名加到变量x中

grf1973

InStr(a,b) = 0 表示字符串a 不包含 字符串b

grf1973

为什么要用x=","只是对x赋初值？可以保证每加一个客户，x都是",a,b,c,d,"（两头都带逗号）样式，用instr函数时，用x和 ",a,"之类比较，避免当b包含a之类的情况时发生误判。（如果b 包含a，那么如果x包含b,必然x包含a，而把a,b两边都用逗号隔开，用判断是否包含“,a,"来判断是否包含更为精准）

lokisandra

grf1973 发表于 2015-5-22 15:57
为什么要用x=","只是对x赋初值？可以保证每加一个客户，x都是",a,b,c,d,"（两头都带逗号）样式，用instr函数 ...

万分感激。我之前出门了没有 及时看到您的回复。真是帮了我很多。谢谢 。