排序难题

class11class

一定是按照:这个条件的顺序去B工作表进行排序,不要用升序来排,这样根本没法解决工作中的问题:如何用VBA解决呢?

万事胜①

是这种效果吗

nie414006

zjzyj

假定两表A列元素是一样的只是排序不一样。供参考

gwjkkkkk

自定义排序
Sub Test1()
    Dim ar, iSerial&
   
    With Sheets(1).[A1].CurrentRegion.Resize(, 1)
        ar = Intersect(.Offset(), .Offset(1))
    End With
    Application.AddCustomList (ar)
    iSerial = Application.GetCustomListNum(ar)
    With [A1].CurrentRegion
        .Parent.Sort.SortFields.Clear
        .Sort key1:=.Item(1), Order1:=xlAscending, Header:=xlYes, OrderCustom:=iSerial + 1
        Application.DeleteCustomList iSerial
    End With
   
    Beep
End Sub

class11class

万事胜① 发表于 2023-4-4 22:19
是这种效果吗

是的,满足了我的想要的

lizhipei78

zjzyj 发表于 2023-4-4 22:33
假定两表A列元素是一样的只是排序不一样。供参考

如果B表有重复怎么办？我觉得是先取得A表的排序号，然后把排序号放到B表的辅助列，再排序一下不就好了，这样子又简单又不会错

lizhipei78

xing_chen

gwjkkkkk 发表于 2023-4-4 22:40
自定义排序
Sub Test1()
    Dim ar, iSerial&

老师！ .Parent.Sort.SortFields.Clear此句对象不支持该属性和方法，方便再修改吗？谢谢

xing_chen

lizhipei78 发表于 2023-4-5 09:55

老师！你词句.Range("A1:E" & endRow).Sort key1:=.Range("E1"), Orderl:=xlAscending, Header:=xlYes运行时错误1004，可以帮忙修改吗