請問VBA高手大大~
以下是針對工作表(主要)B欄位及(次要)C欄位排序遞增
所錄製的巨集,看的眼花撩亂~~~
要如何改寫才會更簡單易懂呢?
Sub Macro1()
'
' Macro1 Macro
' user 在 2013/1/15 錄製的巨集
''
Range("A3").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Sort Key1:=Range("B3"), Order1:=xlAscending, Key2:=Range("C3") _
, Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom, SortMethod:=xlPinYin, DataOption1:= _
xlSortNormal, DataOption2:=xlSortNormal
Range("H3").Select
End Sub |
發表於 2013-1-15 10:32
| 
