又是一个排序的问题?求助学友,老师们!

tpc008

详情见附件:望能得到指点,谢谢! 123.rar (6.15 KB, 下载次数: 25)

2011-4-16 08:40 上传

点击文件名下载附件

tpc008

我无意中想出了一个办法就是:步骤是这样的:将箱号列进行分列,然后将"号"进行排序,排完序再进行合并..这样操作可以完成,不知其它的朋友还有什么方法吗?欢迎讨论!谢谢!

ygxgp2007

123.zip (19.57 KB, 下载次数: 10)

2011-4-16 09:05 上传

点击文件名下载附件

ykcbf1100

用正则拆分数字，用数组快排排序

ykcbf1100

1. Sub ykcbf()    '//2025.3.25
   
2.     With ActiveSheet
   
3.         r = .Cells(Rows.Count, 3).End(3).Row
   
4.         arr = .Range("A2:C" & r).Value
   
5.         Dim tm: tm = Timer
   
6.         QuickSort arr, LBound(arr, 1), UBound(arr, 1)
   
7.         .Range("A2:C" & r).Value = arr
   
8.     End With
   
9.     MsgBox "共用时：" & Format(Timer - tm, "0.000") & "秒！"
   
10. End Sub
    
11. 
    
12. Sub QuickSort(ByRef dataArray As Variant, ByVal low As Long, ByVal high As Long)
    
13.     Dim i As Long, j As Long
    
14.     Dim pivot As Double
    
15.     Dim temp As Variant
    
16.     If low < high Then
    
17.         i = low
    
18.         j = high
    
19.         pivot = ston(dataArray((low + high) \ 2, 3))
    
20.         While i <= j
    
21.             While ston(dataArray(i, 3)) < pivot
    
22.                 i = i + 1
    
23.             Wend
    
24.             While ston(dataArray(j, 3)) > pivot
    
25.                 j = j - 1
    
26.             Wend
    
27.             If i <= j Then
    
28.                 For k = 1 To 3
    
29.                     temp = dataArray(i, k)
    
30.                     dataArray(i, k) = dataArray(j, k)
    
31.                     dataArray(j, k) = temp
    
32.                 Next k
    
33.                 i = i + 1
    
34.                 j = j - 1
    
35.             End If
    
36.         Wend
    
37.         If low < j Then QuickSort dataArray, low, j
    
38.         If i < high Then QuickSort dataArray, i, high
    
39.     End If
    
40. End Sub
    
41. 
    
42. Function ston(st)
    
43.     Dim reg As Object
    
44.     Set reg = CreateObject("VBScript.RegExp")
    
45.     With reg
    
46.         .Pattern = "[^\d]"
    
47.         .Global = True
    
48.         .IgnoreCase = True
    
49.     End With
    
50.     ston = reg.Replace(st, "") * 1
    
51.     Set reg = Nothing
    
52. End Function
    

复制代码

wyslw2004

=SORTBY(A2:C601,--MID(C2:C601,2,5))
这样的效果吗？

mjm04

=DROP(SORT(HSTACK(A1:C601,IFNA(REGEXP(C1:C601,"\d+")*1,-9^9)),4),,-1)