[已解决]对多个工作簿进行自定义排序，太多，太繁琐了，求个代码

小敏同学

hasyh2008 发表于 2022-8-3 14:11
自定义排序，就要有自定义排序的规则，这个规则你没说啊。

如图

hasyh2008

好吧，再试试！

小敏同学

hasyh2008 发表于 2022-8-3 15:16
Sub 排序()
    Dim fso As Object
    Dim Wb As Workbook

序号那一列不需要排序，然后这个宏怎么用的啊，操作都没效果

hasyh2008

打开标准件清单，点按钮。
已经排过序了，操作肯定看不出效果。
把
.SetRange Range("A3:E" & UBound(Ar) + 2)
修改为：
.SetRange Range("B3:E" & UBound(Ar) + 2)

小敏同学

hasyh2008 发表于 2022-8-3 15:58
打开标准件清单，点按钮。
已经排过序了，操作肯定看不出效果。
把

可以了