分类排序问题

t13564865256

香川群子 发表于 2015-11-27 08:41
总结一下，排序规则应为：
① 以右边次数对大类进行降序排序…… 109(66)>105(44)>108(31)
② 每个大 ...

默认大类前三位和小类前三位相同？楼主可没有说有这个规律哦。

香川群子

t13564865256 发表于 2015-11-27 11:18
默认大类前三位和小类前三位相同？楼主可没有说有这个规律哦。

观察楼主数据，应该是符合这个假设的。

如果有别的规则，只要有规律可循，应当也是可以做到的。

…………
写VBA代码反而复杂。
或者，VBA代码也可按照辅助列的规律来做，即生成排序码，然后按照排序码排序。

代码如下：

1. 
   
2. Sub test1()
   
3.    
   
4.     m = [a65536].End(3).Row - 1 '最大行数
   
5.     ar = [a2].Resize(m, 3) '读取第2行开始的数据
   
6.    
   
7.     Set d = CreateObject("Scripting.Dictionary") '建立字典
   
8.     For i = 2 To m
   
9.         t = ar(i, 1): If Len(t) = 3 Then d(Left(t, 3)) = Format(ar(i, 2), "0000-") & t
   
10.         '遍历各行、提取类别码=3位的大类总次数存入字典
    
11.     Next
    
12.     For i = 2 To m
    
13.         ar(i, 3) = d(Left(ar(i, 1), 3)) & Format(ar(i, 2), "-0000")
    
14.         '再次遍历各行、由字典提取前3位对应的大类总次数作为前缀加上自身次数成为排序码值
    
15.     Next
    
16.    
    
17.     [a2].Resize(m, 3) = ar '输出结果
    
18.     [a2].Resize(m, 3).Sort [c2], 2, , , , , , 1 '按第3列辅助排序码值排序
    
19.     [c2].Resize(m) = ""  '删去第3列
    
20. End Sub

复制代码

按照yjh_27的提醒，加入了大类码作为相同次数的区分。

香川群子

yjh_27 发表于 2015-11-27 10:26
防止次数相同混项

有道理！

lzybones

t13564865256 发表于 2015-11-27 11:18
默认大类前三位和小类前三位相同？楼主可没有说有这个规律哦。

大类前三位和小类前三位是相同的，小类就是在大类后面加上01,02,03……

lzybones

香川群子 发表于 2015-11-27 08:41
总结一下，排序规则应为：
① 以右边次数对大类进行降序排序…… 109(66)>105(44)>108(31)
② 每个大 ...

为什么我的运行结果不一样？if语句好像没起作用

lzybones

香川群子 发表于 2015-11-27 12:43
观察楼主数据，应该是符合这个假设的。

如果有别的规则，只要有规律可循，应当也是可以做到的。

因为有大批量的文件需要处理，所以还是用vba的好，这段代码还是非常简单实用的！

yjh_27

自定义函数应用

yjh_27

lzybones 发表于 2015-11-27 13:24
为什么我的运行结果不一样？if语句好像没起作用

数组函数，三键回车

lzybones

yjh_27 发表于 2015-11-27 13:32
自定义函数应用

多谢分享~~

nervfwg

39660519 发表于 2015-11-24 16:21
我说一下我的思路
Sub 分类排序()
Range("E3：F" & Rows.Count) = ""

标记学习一下