关于排序检查

dtlcg

请教各位老师：检查A列是否按甲、乙、丙、丁、戊、己、庚、辛、壬、癸的顺序排列，如果其中某个未按顺序排列，就列到B列中。比如A3中的癸；A4中的庚、辛；A5中的丙、戊、壬未按顺序排列。谢谢！

swl4561255

1. Sub test()
   
2. ar = [A1].End(4).Row
   
3. arr = Range("A2:A" & ar)
   
4. Dim crr(1 To 100, 1 To 1)
   
5. ir = "甲乙丙丁戊己庚辛壬癸"
   
6. For i = 1 To ar - 1
   
7. Set d = CreateObject("Scripting.Dictionary")
   
8.     br = Split(arr(i, 1), "；")
   
9.     For j = 0 To UBound(br) - 1
   
10.     m = InStr(ir, br(j))
    
11.         For k = j + 1 To UBound(br)
    
12.         n = InStr(ir, br(k))
    
13.             If m > n Then
    
14.                 d(br(j) & "排序错") = ""
    
15.             End If
    
16.         Next
    
17.     Next
    
18.     k = d.keys
    
19.     s = Join(k, "；")
    
20.     crr(i, 1) = s
    
21. Set d = Nothing
    
22. Next
    
23. [B2].Resize(ar - 1, 1) = crr
    
24. End Sub

复制代码

ooluckydog

dtlcg

ooluckydog 发表于 2024-4-14 17:15

谢谢你帮我解决了问题！

dtlcg

swl4561255 发表于 2024-4-14 17:17

谢谢你帮我解决了问题！

dtlcg

ooluckydog 发表于 2024-4-14 17:15

此代码有时会出错，比如遇到：甲；癸；丙；甲；丁；己；庚；壬

ooluckydog

没有考虑到重复出现的情况，修改了下

LIUZHU

感觉给的示例就不准确，如“丙；乙；己；戊；庚；壬；辛”，示例是“丙排序错；戊排序错；壬排序错”，但是看起来，丙、己、戊、庚、壬、辛顺序都是错的，一个排序错，影响另一个排序对的，所以错误的排序有时是成对出现的。