2014-01-07 137 views
-1

我需要篩選已經過濾的範圍。我使用下面的代碼,但我認爲自動過濾器是不必要的。但是,如果您刪除自動篩選器,我仍然會得到一個「運行時間」爲438'的 :對象不支持此屬性或方法「錯誤。對篩選範圍進行排序

這裏是我的代碼:

Range(cells(1,1),cells(9,5).select 
selection.autofilter 
activesheet.selection.autofilter.sort.sortfields.clear 
activesheet.selection.autofilter.sort.sortfields. _ 
    add key:=range("a8"), sorton:=xlsortonvalues, order:=xldescending, _ 
    dataoption:=xlsortnormal 

with activesheet.autofilter.sort 
    .header=xlYes 
    .matchcase=false 
    .orienation=xltoptobottom 
    .sortmethod=xlPinYin 
    .apply 
end with 
+0

目前尚不清楚你試圖達到什麼目標。再加上這段代碼甚至不會編譯。請描述您的輸入和預期結果 - 併發布您的實際代碼。 –

回答

0

對不起慢傢伙。另外,我應該更清楚地知道我的代碼需要什麼。我真的只想複製一個有序的單元格範圍。我能夠使用我錄製的宏中的代碼。下面是結束了工作代碼:

Range(cells(FR,1),cells(LastRow,5)).select 
activeworkbook.worksheets("TR_Tracking").sort.sortfields.clear 
activeworkbook.worksheets("TR_Tracking").sort.sortfields.add key:=range(_ 
    cells(FR,1),cells(lastrow,1)),sorton:=xlsortonvalues,order:=xlascending, dataoption:= _ 
    xlsortnormal 
with activeworkbook.worksheets("TR_Tracking").sort 
    .setrange range(cells((FR-1),1),cells(LastRow,5)) 
    .header=xlYes 
    .matchcase= false 
    .orientation =xltoptobottom 
    .sortmethod=xlpinyin 
    .apply 
end with 

FR =第一行和LASTROW =最後一排,我在的代碼單獨的行指定的範圍內。