Question

我有一个宏，根据自定义排序对我的所有数据进行排序，但我想在不同的工作表上使用它有不同的最后一行“数字”，如果可以这么说，我在这里有这个代码，但我一直收到错误：

只是为了让你知道我正在排序O

Sub SortDays()

' SortDays Macro



lRow = Worksheets("Banner Summary").Cells(Rows.Count, "B").End(xlUp).Row
Range("B1").Select
Range("A1:A" & lRow).Select
Range("O2").Activate
ActiveWorkbook.Worksheets("Banner Summary").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Banner Summary").Sort.SortFields.Add Key:=Range( _
    "O2:O" & lRow), SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _
    "M,T,W,R,F", DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Banner Summary").Sort
    .SetRange Range("A1:A" & lRow)
    .Header = xlYes
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply
End With
End Sub

错误是：“排序参考无效。请确保......” 它很长，所以任何帮助都会非常感激，并提前thnx ^ _ ^

Answer 1

传递要排序的工作表：

Sub SortDays(byRef ws)

' SortDays Macro
lRow = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row
'Range("B1").Select
'Range("A1:A" & lRow).Select
'Range("O2").Activate
ws.Sort.SortFields.Clear
ws.Sort.SortFields.Add Key:=Range( _
    "O2:O" & lRow), SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _
    "M,T,W,R,F", DataOption:=xlSortNormal
With ws.Sort
    .SetRange Range("A1:O" & lRow)
    .Header = xlYes
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply
End With
End Sub

然后，这将在您传递的任何工作表上运行（假设您已将ws定义为您想要使用的任何工作表：

Dim ws As Worksheet : Set ws = Workbooks("excelfilename").Worksheets("WhateverSheet")

在使用Sub

调用SortDays ws之前

将整个工作表排序到最后一行

1 个答案: