VBA练习

oyzjo

Rows("3:3").Select
    Selection.AutoFilter
    ActiveWindow.SmallScroll ToRight:=-75
    ActiveSheet.Range("$A$3:$CK$" & ActiveSheet.Range("A65535").End(xlUp).Row).AutoFilter Field:=10, Criteria1:=Array( _
        ".0.", "1", "10", "100", "1000", "104", "12", "120", "128", "132", "144", "150", "156", _
        "168", "17580", "180", "1820", "185", "190", "192", "196", "20", "200", "2000", "204", _
        "208", "2116", "216", "224", "24", "240", "256", "3", "300", "312", "320", "330", "36", _
        "360", "36000", "3744", "4", "40", "414", "4144", "416", "420", "440", "48", "480", "50", _
        "54", "6", "60", "600", "62", "70", "72", "7200", "84", "864", "912", "96", "="), Operator _
        :=xlFilterValues
End Sub

ppp710715

Selection.AutoFilter这句代码有错误