Question

Excel中,如何用VBA设置自动按给定的条件上移或排序?

数据有15列,1、2行为标题，13列为标记列，分别为：作废、已结帐、未结帐。要求用VBA做自动按“作废、已结帐、未结帐”排序。谢谢。

Answer 1

怎么看都觉得与vba无关，虽然vba也能实现。但是excel本身就能很好地实现。
限筛选，然后排序，这样就ok了啊

至于vba操作，首先选定一个单元格设置下拉列表。vba可以自动获取该单元格的值进行排序操作。该单元格时“作废”，就筛选出作废行，并对其进行排序。其它同理。如果该单元格为空，则全部显示就行了。

Answer 2

执行一次下列的宏：
Sub Sort2()
Rows("3:60000").Sort Key1:=Range("M3"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=2, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
:=xlPinYin, DataOption1:=xlSortNormal
End Sub