摆脱。选择？

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

确定：

<script src="https://cdnjs.cloudflare.com/ajax/libs/react/15.1.0/react.min.js"></script>
<script src="https://cdnjs.cloudflare.com/ajax/libs/react/15.1.0/react-dom.min.js"></script>
<div id="root"></div>

有关详细信息，请参阅this