[已解决]不同地级市下辖的县区代码如何“按英文字母顺序”编写？

oklao5

不同地级市下辖的县区代码如何“按英文字母顺序”编写？敬请赐教，谢谢。

最佳答案

月排行榜 / 总排行榜

grf1973

2017-5-15 14:47

1. Sub 编号()
   
2.     Range("e2:e" & [a65536].End(3).Row) = ""
   
3.     arr = [a1].CurrentRegion
   
4.     For i = 3 To UBound(arr)
   
5.         If arr(i, 4) = arr(i - 1, 4) Then
   
6.             s = s + 1
   
7.             arr(i, 5) = Chr(64 + s)
   
8.         Else
   
9.             s = 0
   
10.         End If
    
11.     Next
    
12.     [e1].Resize(UBound(arr)) = Application.Index(arr, , 5)
    
13. End Sub
    

复制代码

跳转到最佳答案楼层

chart888

没有看懂你的要求

pengyx

排序，第一关键字地市级代码，第二关键字县区能代码。不用vba了

grf1973

1. Sub 编号()
   
2.     Range("e2:e" & [a65536].End(3).Row) = ""
   
3.     arr = [a1].CurrentRegion
   
4.     For i = 3 To UBound(arr)
   
5.         If arr(i, 4) = arr(i - 1, 4) Then
   
6.             s = s + 1
   
7.             arr(i, 5) = Chr(64 + s)
   
8.         Else
   
9.             s = 0
   
10.         End If
    
11.     Next
    
12.     [e1].Resize(UBound(arr)) = Application.Index(arr, , 5)
    
13. End Sub
    

复制代码

france723

详见附件