关于按照指定列内容排序 排序列含很多重复项

shian0526

求助  不知道发这里合不合适  A-D列数据按照F列排序  其中F列在对应的B列里面有重复项 需要把重复项全部排序出来   重复项排到一起  排成H:L列样子最后排序完如何在I列里每隔一个不同的数据插入一行呢

chxw68

1. Sub test()
   
2.   Dim r%, i%
   
3.   With Worksheets("模板")
   
4.     r = .Cells(.Rows.Count, 6).End(xlUp).Row
   
5.     Application.AddCustomList ListArray:=.Range("f2:f" & r)
   
6.     r = .Cells(.Rows.Count, 1).End(xlUp).Row
   
7.     Range("a1:e" & r).Sort Key1:=Range("b2"), Order1:=xlAscending, Header:=xlYes, OrderCustom:=Application.CustomListCount + 1
   
8.     Application.DeleteCustomList ListNum:=Application.CustomListCount
   
9.   End With
   
10. End Sub
    

复制代码

chxw68

自定义排序。