先排字母后排数字的顺序

张雄友

先排字母后排数字的顺序。

bluexuemei

1. Sub test()
   
2. '需要安装ACTIVERUBY ，下载地址 http://www.artonx.org/data/asr/Ruby-2.1.1.msi
   
3. Set ojs = CreateObject("Scriptcontrol"): ojs.Language = "rubyscript"
   
4. ojs.eval ("def aa(aa) $aa=aa.flatten end")
   
5. y = ojs.Run("aa", Range("A1", [a1].End(4)).Value)
   
6. y = ojs.eval("$aa.sort_by{|x|a=x.split(/(\d+)/);[a[0],a[1].to_i]}.zip")
   
7. [c1].Resize(UBound(y) + 1) = y
   
8. 'Stop
   
9. End Sub

复制代码

yjh_27

1. Sub aa()
   
2. arr = [a1:a15]
   
3. 
   
4. brr = YjhSort(arr, "REa;\d,RE1;\D", "1,1")
   
5. 
   
6. [f1:f15] = brr
   
7. 
   
8. End Sub
   

复制代码

yjh_27

参见附件。

张雄友

yjh_27 发表于 2015-1-15 19:33
参见附件。

请再看一看。

yjh_27

张雄友 发表于 2015-1-15 19:48
请再看一看。

忽略大小写。
brr = YjhSort(arr, "REA;\d,RE1;\D", "1,1")

区分大小写
brr = YjhSort(arr, "REa;\d,RE1;\D", "1,1")

需下载本楼附件

张雄友

yjh_27 发表于 2015-1-15 20:04
忽略大小写。
brr = YjhSort(arr, "REA;\d,RE1;\D", "1,1")

有个奇怪的现象，连续执行几十次，会发现大小写字母不断变化的。

yjh_27

张雄友 发表于 2015-1-15 20:24
有个奇怪的现象，连续执行几十次，会发现大小写字母不断变化的。

忽略大小写后

ADD312

aDD312

视为相同，排序随机

如需固定，加一级规则
brr = YjhSort(arr, "REA;\d,REa;\d,RE1;\D", "1,1,1")

yaozong

1. Sub 先排字母后排数字()
   
2.   Application.ScreenUpdating = False
   
3.   Dim arr, brr, s$, a, b, i, k, n
   
4.   arr = Range("a1", [a65536].End(3))
   
5.   brr = arr
   
6.   For i = 1 To UBound(arr)
   
7.     s = arr(i, 1)
   
8.     For n = 1 To Len(arr(i, 1))
   
9.        If IsNumeric(Mid(s, n, 1)) Then
   
10.           a = Left(s, n - 1)
    
11.           b = Mid(s, n) + 1000000
    
12.           Exit For
    
13.        End If
    
14.     Next
    
15.     k = 3 - Len(a)
    
16.     brr(i, 1) = a & String(k, "@") & b & "$" & s
    
17.   Next
    
18.   [h1].Resize(UBound(arr)) = brr
    
19.   [h1].Resize(UBound(arr)).Sort [h1], 1
    
20.   [h1].Resize(UBound(arr)).Replace "*$", ""
    
21.   Application.ScreenUpdating = True
    
22. End Sub

复制代码

yaozong

测试附件。。。。。。