除了自定义排序外，有没有别的方法，a表的a列按照b表的a列排序？

zzpsx

a表如何按照b表排列.rar (15.5 KB, 下载次数: 5)

2023-1-20 17:13 上传

点击文件名下载附件

除了自定义排序外，有没有别的方法，a表的a列按照b表的a列排序？

是否要用到vlookup的跨表引用？

心电感应

MATCH 排序

3190496160

Sub 自定义系列排序()
Dim n&, rng As Range
Set rng = Sheet2.Range("a1:a" & Sheet2.Cells(Rows.Count, "a").End(xlUp).Row)
Application.AddCustomList (rng)
'增加一个自定义序列,该参数除了支持单元格对象，也支持数组。
n = Application.CustomListCount
'自定义序列的数目
r = Cells(Rows.Count, 2).End(xlUp).Row
Range("a1:e" & r).Sort key1:=[a1], order1:=xlAscending, Header:=xlNo, ordercustom:=n + 1
'使用自定义排序，ordercustom指定使用哪个自定义序列排序。
'当使用自定义排序时，需要将OrderCustom参数设置为指定的序列在自定义列表中的顺序加1
Application.DeleteCustomList n
'删除新增的自定义序列
MsgBox "OK！"
End Sub

3190496160

a.rar (18.45 KB, 下载次数: 1)

2023-1-20 17:50 上传

点击文件名下载附件

3190496160

zzpsx

心电感应 发表于 2023-1-20 17:25
MATCH 排序

谢谢高手，这个公式末尾的逗号是亮点。