Excel如何用宏命令排序后用通用文件名

zixy

我用录制宏的功能录制出来出错，下标越界请问如何更改？Columns("H:H").Select
    ActiveWorkbook.Worksheets("全部20211202").AutoFilter.Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("全部20211202").AutoFilter.Sort.SortFields.Add2 _
        Key:=Range("H1:H4591"), SortOn:=xlSortOnValues, Order:=xlDescending, _
        DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("全部20211202").AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
出错原因是打开新的工作表后“Worksheets("全部20211202").”这里的文件名不适用了，有否可通用的定义变量呢？

877Aplan

ActiveWorkbook.Worksheets("全部20211202") 可以用 ActiveSheet 代替，不过仅对激活的工作表生效。文件备份一份然后试试

天空之主

dim sh as worksheet
set sh=ActiveWorksheet
把这两句放最前面，然后用sh替换ActiveWorkbook.Worksheets("全部20211202")