200多个地级市排序请教！！！

ldszhzh

楼主意思表达不是很楚啊

tlw1987

ldszhzh 发表于 2013-1-14 16:09
楼主意思表达不是很楚啊

应该还算清楚吧。。。。。。。

ykcbf1100

B~D列按A列城市名序列排序

ykcbf1100

1. Sub ykcbf()  '//2025.4.7   按关键字排序
   
2.     With ActiveSheet
   
3.         r = .Cells(.Rows.Count, 1).End(3).Row
   
4.         px = Application.Transpose(.Range("a2:a" & r))
   
5.         r = .Cells(.Rows.Count, 2).End(3).Row
   
6.         Set Rng = .Range("b2:d" & r)   '//排序范围
   
7.         With .Sort
   
8.             .SortFields.Clear
   
9.             .SortFields.Add Key:=Rng.Columns(1), CustomOrder:=Join(px, ",")
   
10.             .SetRange Rng
    
11.             .Header = 2
    
12.             .Apply
    
13.         End With
    
14.     End With
    
15. End Sub
    
16. 
    
17. 
    

复制代码