各位大师，如何实现字段排序，并统计汇总？

水木清扬

条件：

1.物料编号是唯一的，入库数量汇总。

2.列（字段）可以实现按自主设定的顺序排列。

魂断蓝桥

什么叫自主设定的顺序

水木清扬

魂断蓝桥 发表于 2019-1-11 10:26
什么叫自主设定的顺序

谢谢您，就是按照附件里面的顺序，如有变动，可以微改一下，就可以实现的数据结果。

yjh_27

自定义序列排序，站内搜一下

水木清扬

yjh_27 发表于 2019-1-11 10:44
自定义序列排序，站内搜一下

是字段的排序，不是字段内的内容排序啊。

lsc900707

请见代码：

1. Sub gj23w98()
   
2.     Dim brr(1 To 99999, 1 To 7)
   
3.     Set d = CreateObject("scripting.dictionary")
   
4.     arr = Sheet1.[a1].CurrentRegion
   
5.     For i = 2 To UBound(arr)
   
6.         s = arr(i, 8)
   
7.         If Not d.exists(s) Then
   
8.             m = m + 1
   
9.             d(s) = m
   
10.             brr(m, 1) = arr(i, 14)
    
11.             brr(m, 2) = arr(i, 15)
    
12.             brr(m, 3) = arr(i, 8)
    
13.             brr(m, 4) = arr(i, 7)
    
14.             brr(m, 5) = arr(i, 11)
    
15.             brr(m, 6) = arr(i, 13)
    
16.             brr(m, 7) = arr(i, 12)
    
17.         Else
    
18.             brr(d(s), 7) = brr(d(s), 7) + arr(i, 12)
    
19.         End If
    
20.     Next
    
21.     If m Then [a2].Resize(m, 7) = brr
    
22. End Sub

复制代码

lsc900707

附件供测试。。。。。。

水木清扬

lsc900707 发表于 2019-1-11 11:29
附件供测试。。。。。。

OK,谢谢您的指导！！！！！

yjh_27

水木清扬 发表于 2019-1-11 11:03
是字段的排序，不是字段内的内容排序啊。

字段名在第1行，对第1行按列按自定义序列排序

YZC51

学习6楼老师的代码。谢谢！
如何实现字段排序，并统计汇总.rar (14.47 KB, 下载次数: 12)

2019-1-11 12:31 上传

点击文件名下载附件