地址门牌号加房号排序，希望可以帮助有需要的朋友（不是本人作品）

黄金万两︶ㄣ

虽然是小小的排序，希望对同样出现这类问题的朋友起到小小帮助。{:soso_e113:}
更新的附件（已改进）是赵老师编写的作品，欢迎下载使用。在这里我代表所有需要这样排序的朋友谢谢赵老师！

zhaogang1960

邀请收到，按照你的思路，稍微简化一下：

1. Sub Macro1()
   
2.     Dim matchs As Object, arr, brr&(), i&
   
3.     arr = Range("b2:b" & Range("b" & Rows.Count).End(xlUp).Row)
   
4.     ReDim brr(1 To UBound(arr), 1 To 1)
   
5.     With CreateObject("VBScript.RegExp")
   
6.         .Global = True
   
7.         .Pattern = "[0-9]+"
   
8.         For i = 1 To UBound(arr)
   
9.             Set matchs = .Execute(arr(i, 1))
   
10.             If .test(arr(i, 1)) Then brr(i, 1) = matchs(0).Value
    
11.         Next
    
12.     End With
    
13.     [c2].Resize(i - 1) = brr
    
14.     Range("A2:C" & i).Sort Key1:=Range("C2"), Order1:=xlAscending, Header:=xlNo
    
15.     [c:c].Clear
    
16. End Sub
    

复制代码

zhaogang1960

请测试附件
将某列变换再排序.rar (18.88 KB, 下载次数: 61)

2014-2-2 00:27 上传

点击文件名下载附件

黄金万两︶ㄣ

zhaogang1960 发表于 2014-2-2 00:28
请测试附件

测试过，非常好。因早前上传附件不能体现出再有C列详址后的效果，所以我再更新附件了，老师有时间再帮助修正吧。

zhaogang1960

黄金万两︶ㄣ 发表于 2014-2-2 09:48
测试过，非常好。因早前上传附件不能体现出再有C列详址后的效果，所以我再更新附件了，老师有时间再帮助修 ...

1. Sub Macro1()
   
2.     Dim matchs As Object, arr, brr&(), i&
   
3.     arr = Range("b2:b" & Range("b" & Rows.Count).End(xlUp).Row)
   
4.     ReDim brr(1 To UBound(arr), 1 To 1)
   
5.     With CreateObject("VBScript.RegExp")
   
6.         .Global = True
   
7.         .Pattern = "[0-9]+"
   
8.         For i = 1 To UBound(arr)
   
9.             Set matchs = .Execute(arr(i, 1))
   
10.             If .test(arr(i, 1)) Then brr(i, 1) = matchs(0).Value
    
11.         Next
    
12.     End With
    
13.     With [d2].Resize(i - 1)
    
14.         .Value = brr
    
15.         Range("A2:D" & i).Sort Key1:=Range("C2"), Order1:=xlAscending, Key2:=Range("D2"), Order2:=xlAscending, Header:=xlNo
    
16.         .Clear
    
17.     End With
    
18. End Sub

复制代码

zhaogang1960

请测试附件
将某列变换再排序.rar (19.84 KB, 下载次数: 31)

2014-2-2 11:49 上传

点击文件名下载附件

黄金万两︶ㄣ

zhaogang1960 发表于 2014-2-2 11:50
请测试附件

附件测试过，B列乱了。剩提数字要加小数点才可以排序完成的

zhaogang1960

黄金万两︶ㄣ 发表于 2014-2-2 14:09
附件测试过，B列乱了。剩提数字要加小数点才可以排序完成的

B列数据有小数点吗？
怎么个乱了，请上传附件说明你要达到的效果

黄金万两︶ㄣ

我附件是B列中在文字发生多种变化都可以排序。只是差一点不完美，总比一般排序好多了，因为一般排序的话，出现的是从10开始的。一般排序这种门牌号看得人眼花潦乱，如果一般排序是上门派米的话，那就看门牌号看得麻烦了。所以就特意思发帖与大家一起分享，因为差一点不完美，所以还是请大神门给点意见。

黄金万两︶ㄣ

zhaogang1960 发表于 2014-2-2 14:17
B列数据有小数点吗？
怎么个乱了，请上传附件说明你要达到的效果

不好意思！我说得不清楚。B列数据是没有小数点，我说的小数点是在过程中，用Asc函数把某一单元格号数当中的文字转成数字再前面连接一个点，再连接这单元格用正侧提取出来的数字的后面。如像附件中B列单元格中16号与16号之几为例，16号转换一下就变成正侧提取的数字（16）连接（.）连接(Asc函数转换的数字）就是：16.17723，16号之一转换一下就变成正侧提取的数字（16）连接（.）连接(Asc函数转换的数字）就是：16.3989。那么转换后的16.17723与16.3989就可以对比可以排序了。