ActiveSheet.Range 可以設定 多個先後得篩顯排序嗎?

vavashop

大大請教一個問題

排序篩選可以設定 先後順序嗎?

ActiveSheet.Range("$A$1:$GZ$5000").AutoFilter Field:=7, Criteria1:="3"
    ActiveSheet.Range("$A$1:$GZ$5000").AutoFilter Field:=6, Criteria1:="3"

koo

依照需求調整

1. ActiveSheet.Range("$A$1:$GZ$5000").AutoFilter Field:=3, Criteria1:="3"
   
2. ActiveSheet.Range("$A$1:$GZ$5000").AutoFilter Field:=6, Criteria1:="3"
   
3. ActiveSheet.Range("$A$1:$GZ$5000").AutoFilter Field:=1, Criteria1:="3"
   
4. ActiveSheet.Range("$A$1:$GZ$5000").AutoFilter Field:=7, Criteria1:="3"

複製代碼

vavashop

是依照順序游上到下排列嗎？

vavashop

上面這方法 不會 有 順序的篩選

GBKEE

回復 4# vavashop
是這樣嗎?

1. Sub Ex()
   
2.     With ActiveSheet.Range("$A$1:$GZ$5000")
   
3.         .AutoFilter Field:=7, Criteria1:="3"
   
4.         .AutoFilter Field:=6, Criteria1:="3"
   
5.         '排序篩選可以設定 先後順序嗎?
   
6.         '是這樣嗎!!
   
7.         .Columns(1).Sort KEY1:=.Cells(1), Order1:=xlAscending, Header:=xlYes
   
8.         .Columns(2).Sort KEY1:=.Cells(2), Order1:=xlAscending, Header:=xlYes
   
9.         .Columns(3).Sort KEY1:=.Cells(3), Order1:=xlAscending, Header:=xlYes
   
10.     End With
    
11. End Sub

複製代碼

vavashop

嗯嗯～
大大我有一個疑問～
我的vba跑完變成200多mb

我想抓篩選出來的資料然後貼上 其他工作表
不知道

我是不是因為下面這一段所以變成越來越大

Range("a2:gz100000").Select
    Selection.Copy

因為資料沒有那麼多 我只需要a2~gz欄位
然後選擇篩選出來的資料複製起來 貼向另一個工作表

第二個問題是現在我很多工作表 "列"都是空白的但號碼都到十萬了
不知道誰可以救我
欄位也可以邦我刪除到a~gz留下來即可嗎？

請各位大大幫忙了

感覺會爆炸的excel

vavashop

另外 大大們～我b欄位都有資料
所以可以用這一欄 來篩選空白格

Scott090

回復 6# vavashop


    檔案變大，參考 kill row
http://forum.twbts.com/viewthrea ... &from=favorites

vavashop

大大
請問這一段 如何改
Sub 巨集2()
'
' 巨集2 巨集
'

'
  Dim row_s1 As Integer

'檢查工作表1的B欄已有資料行數
    row_s1 = Worksheets(1).Range("B65535").End(xlUp).Row

'B1無資料時，row_s1 =0
    If row_s1 = 1 Then
        If Cells(row_s1, 2) = "" Then
            row_s1 = 0
        End If
    End If
   
   
  
  

   Call a2

Call a1
        
    Range("B2:l9").Select
    Selection.Copy
    Worksheets(1).Select
    Cells(row_s1 + 1, 2).Select
    ActiveSheet.Paste


我想改成 抓出篩選後的資料
Range("B2:l9").Select

i9  資料最後不一定是在這一列
不知道大大可以指點一下嗎？

GBKEE

回復 6# vavashop


   

我是不是因為下面這一段所以變成越來越大
Range("a2:gz100000").Select
    Selection.Copy

試試看 只Copy有資料的儲存格

1. Sheets("指定的工作表").UsedRange.Columns("a:gz").Offset(1).Copy

複製代碼