在 VBA excel 中运行排序功能

Question

I am running the following code below across multiple tabs, both criteria1 and criteria2 work fine but when I add crietria3 I get the error

"Named Argument not found"

Basically, The first part of the code (before the criteria1 code) is just a simple division of figures from the first cell and that gets converted into percentages.

• criteria1 Sorts one column and extracts cells with the specific figures listed below.

• Criteria2 Hides unnecessary columns that I don't need.

• Criteria3 then proceeds to Filter the AD column by largest to smallest and that is where the code breaks with the "Named Argument not found" error.

Can you please help?

Sub Macro2()

    Dim ws As Worksheet

    For Each ws In ThisWorkbook.Worksheets
        ws.Range("AD1").Value = "In %"
        ws.Range("AD1").Font.Bold = True
        With ws.Range("AD2:AD91")
            .FormulaR1C1 = "=RC[-2]/R2C28"
            .Style = "Percent"
            .NumberFormat = "0.0%"
            .Font.Bold = True
            ws.Range("A1:AD91").AutoFilter Field:=7, Criteria1:=Array("11", "21", "22""23", "31-33", "42", "44-45", "48-49", "51", "52", "53", "54", "55", "56", "61", "62", "71", "72", "81"), Operator:=xlFilterValues, Criteria2:=ws.Range("A:A,I1,F:F,C:E,I:AA").EntireColumn.Hidden = True, Criteria3:=ws.Range("AD1"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= xlSortNormal
        End With
    Next ws
    Application.ScreenUpdating = False
End Sub

Answer 1

I separated your first criteria into an array for better readability when filtering for these values.

This should loop through sheets, hide columns (I removed this I1 , typo?), filter by your Arr1 , and then sort values in column AD in descending order.

You also end your sub by turning off screen updating. I'm not sure if that was intentional or not. Updated here to turn off ScreenUpdating before loop starts, and re-enabled at end of sub.

Option Explicit
Sub Macro2()

Dim ws As Worksheet
Dim Arr1

Arr1 = Array("11", "21", "22", "23", "31-33", "42", "44-45", "48-49", "51", "52", "53", "54", "55", "56", "61", "62", "71", "72", "81")

'Application.ScreenUpdating = False
    For Each ws In ThisWorkbook.Worksheets
        ws.Range("A:A,C:F,I:AA").EntireColumn.Hidden = True
        ws.Range("AD1").Value = "In %"
        ws.Range("AD1").Font.Bold = True
            With ws.Range("AD2:AD91")
                .FormulaR1C1 = "=RC[-2]/R2C28"
                .Style = "Percent"
                .NumberFormat = "0.0%"
                .Font.Bold = True
            End With
        ws.Range("A1:AD91").AutoFilter Field:=7, Criteria1:=Arr1
        ws.Range("A1:AD91").Sort Range("AD2"), xlDescending, Header:=xlYes
    Next ws
'Application.ScreenUpdating = True

End Sub