摆脱.选择？

Question

有没有办法让我摆脱.选择以下代码？

ActiveSheet.Range("$A$2:$AI$5000").AutoFilter Field:=3, Criteria1:="1"
Range("C3").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.NumberFormat = "00"
ActiveSheet.Range("$A$2:$AI$5000").AutoFilter Field:=3
Range("A1").Select

Answer 1

当然:

ActiveSheet.Range("$A$2:$AI$5000").AutoFilter Field:=3, Criteria1:="1"
Range(Range("C3"), Range("C3").End(xlDown)).NumberFormat = "00"
ActiveSheet.Range("$A$2:$AI$5000").AutoFilter Field:=3

有关详细信息,请参阅此