按规定要求汇总代码怎么写

yjh_27

鄂龙蒙 发表于 2015-5-13 09:32
其它在您函数说明能对上号,就是"ua"对不上,也许我对参数不会套用,
第2个参数中只有:u;n;m;k;p    自定义 ...

UA 自定义字符升序
UB 自定义字符降序（U非A字母）
U1 自定义数值升序
U2 自定义数组降序（U非1 非0 数值）
参数2 前部与后部可组合

P 预留参数，目前可忽略（无说明）

鄂龙蒙

yjh_27 发表于 2015-5-13 09:42
UA 自定义字符升序
UB 自定义字符降序（U非A字母）
U1 自定义数值升序

谢谢您的解释!那把这段补充到使用说明就清楚了.

鄂龙蒙

XUYUJING2007 发表于 2015-5-13 09:16
Sub aa()
    Dim arr, A As Integer, D, D1, S As String
    Set D = CreateObject("SCRIPTING.DICTION ...

学习了您的代码,层次清楚一看就懂.
再请教:D1(S) = D1(S) + arr(A, 7)
若是两列数据,增加一列汇总,代码怎么改?谢谢!

yjh_27

鄂龙蒙 发表于 2015-5-13 08:13
谢谢您提供"对二维数组按第L列(多列多次)排序"函数,这样套用函数后代码就简洁多了,
学习后还有些不懂,再 ...

可以用数组函数形式

cbtaja

1. Sub cbtaja()
   
2. Dim crr(1 To 99, 1 To 2), d, arr, i, p, brr, n, hj
   
3. Set d = CreateObject("Scripting.Dictionary")
   
4. arr = Sheet1.Range("D3").CurrentRegion
   
5. For i = 2 To UBound(arr)
   
6.     If Len(arr(i, 1)) Then p = p + 1: crr(p, 1) = arr(i, 1)
   
7.     d(arr(i, 3)) = p
   
8. Next
   
9. brr = Sheet2.Range("A1").CurrentRegion
   
10. For i = 2 To UBound(brr)
    
11.     If d.exists(brr(i, 1)) Then
    
12.         n = d(brr(i, 1))
    
13.         crr(n, 2) = crr(n, 2) + brr(i, 7)
    
14.         hj = hj + brr(i, 7)
    
15.     End If
    
16. Next
    
17. crr(p + 1, 1) = "合计"
    
18. crr(p + 1, 2) = hj
    
19. Sheet3.Range("B2").CurrentRegion.Offset(2).ClearContents
    
20. Sheet3.[b4].Resize(p + 1, 2) = crr
    
21. End Sub
    

复制代码