陣列排序篩選一問

starbox520

小弟剛入門
請問如何用VBA語法
使用Array去做排序篩選
以PG為優先(只要依照字母排列)
次要是BS 字串一樣的擺一起
再來是LC 由大排到小
然後只要取出裡面的
CT .DT .PG .LC .BS
到新的活頁簿

請各路高手指導   謝謝你們

starbox520

回GBKEE大大
因為我有試過用巨集錄製方式   但是篩選一關掉
這個錄製聚集就會有問題= ="
因為我後面有想做個按鈕作連動
所以才想說用VBA會不會比較合適

starbox520

# GBKEE

因為我有試過用巨集錄製方式   但是篩選一關掉
這個錄製聚集就會有問題= ="
因為我後面有想做個按鈕作連動
所以才想說用VBA會不會比較合適

GBKEE

回復 3# starbox520

試試看2003錄製的

1. Option Explicit
   
2. Sub Macro1()
   
3. '
   
4. ' Macro1 Macro
   
5. ' hsu 在 2016/10/3 錄製的巨集
   
6. '
   
7. 
   
8. '
   
9.     Range("A1:H33").Sort Key1:=Range("E2"), Order1:=xlAscending, Key2:=Range( _
   
10.         "G2"), Order2:=xlAscending, Key3:=Range("F2"), Order3:=xlAscending, _
    
11.         Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:= _
    
12.         xlTopToBottom, SortMethod:=xlStroke, DataOption1:=xlSortNormal, _
    
13.         DataOption2:=xlSortNormal, DataOption3:=xlSortNormal
    
14.    
    
15. End Sub

複製代碼

starbox520

回復 4# GBKEE

回版大
出現全部語法錯誤耶~"~
我有嘗試使用錄製巨集
    ActiveWorkbook.Worksheets("rawdata").AutoFilter.Sort.SortFields.Clear
但是會卡在(如果篩選鈕沒打開) 這行會錯誤
我也有試著用錄製巨集的方式
做篩選只要的部分貼去工作表2
但是做了按鈕之後 使用這個巨集就會出現rawdata裡A攔的資料沒過去
用錄製巨集的話之前就卡在這裡~"~
還麻煩版大有什麼建議  
附上我的測試完整檔

GBKEE

回復 5# starbox520

1. 'AutoFilterMode 屬性   目前在工作表上顯示有 [自動篩選] 下拉箭號，則此屬性為 True。該屬性與 FilterMode 屬性互相獨立。讀/寫 Boolean。
   
2. 'FilterMode 屬性          如果指定活頁簿處於篩選模式則為 True。唯讀 Boolean。備註:如果工作表中包含已篩選清單、且該清單中包含隱藏列，則本屬性為 True。
   
3. 
   
4. '
   
5.     With ActiveWorkbook.Worksheets("rawdata")
   
6.         If .AutoFilterMode Or .FilterMode Then .AutoFilter.Sort.SortFields.Clear
   
7.         ' ActiveWorkbook.Worksheets("rawdata").AutoFilter.Sort.SortFields.Clear
   
8.     End With

複製代碼

starbox520

回復 6# GBKEE


    回版大
   不會發生錯誤了!!!!
   看來因為這一小段的字我還有很長的路要學....
   謝謝板大幫忙除錯!!!