按照类型和大小排序问题！

xing_1024

求助：怎样实现以下排序：按照包含洗衣机、电视、冰箱、冰柜的方式排序，然后再按照型号的大小排序，排序之后实现：洗衣机按照大小放在一起，电视按照大小放在一起，等

dsmch

手工做几个结果示意一下，另外，按什么规则区分型号大小？

xing_1024

手工做结果示意。

chuanxi

个人认为先按条件格式分类后排序。不过代表名称一定要输入，如TCL液晶，一定要输成TCL液晶电视，以便条件好判断。想不到好办法，等高手，学习学习
附件-排序.rar (6.8 KB, 下载次数: 13)

2011-3-4 15:44 上传

点击文件名下载附件

dsmch

附件-排序.rar (10.29 KB, 下载次数: 28)

2011-3-4 16:39 上传

点击文件名下载附件

xing_1024

非常感谢dsmch，但是，我真的看不懂啊，照葫芦画瓢了！早知道当初学VB就好了，学个C语言，现在都不到什么是C语言了

ykcbf1100

多关键字模糊排序

ykcbf1100

1. Sub ykcbf()  '//2025.3.25,按关键字排序
   
2.     With ActiveSheet
   
3.         r = .Cells(.Rows.Count, 1).End(3).Row
   
4.         px = Array("洗衣机", "电视", "冰箱", "冰柜")
   
5.         Set Rng = .Range("A2:a" & r)   '//排序范围
   
6.         arr = Rng.Value
   
7.         For i = LBound(arr, 1) To UBound(arr, 1) - 1
   
8.             For j = i + 1 To UBound(arr, 1)
   
9.                 key1 = GetKeyIndex(arr(i, 1), px)
   
10.                 key2 = GetKeyIndex(arr(j, 1), px)
    
11.                 If key1 > key2 Then
    
12.                     temp = arr(i, 1): arr(i, 1) = arr(j, 1): arr(j, 1) = temp
    
13.                 End If
    
14.             Next j
    
15.         Next i
    
16.         Rng.Value = arr
    
17.     End With
    
18.     MsgBox "模糊排序完成！", vbInformation, "完成"
    
19. End Sub

复制代码