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

帖子: 78
主題: 30
精華: 0
積分: 109
點名: 0
作業系統: XP
軟體版本: XP
閱讀權限: 20
註冊時間: 2014-5-15
最後登錄: 2018-9-16

論壇贊助勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2015-4-28 23:46 | 顯示全部帖子

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

大大請教一個問題

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

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

樓主熱帖

帖子: 78
主題: 30
精華: 0
積分: 109
點名: 0
作業系統: XP
軟體版本: XP
閱讀權限: 20
註冊時間: 2014-5-15
最後登錄: 2018-9-16

論壇贊助勳章

2^#

發表於 2015-4-30 16:45 | 顯示全部帖子

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

帖子: 78
主題: 30
精華: 0
積分: 109
點名: 0
作業系統: XP
軟體版本: XP
閱讀權限: 20
註冊時間: 2014-5-15
最後登錄: 2018-9-16

論壇贊助勳章

3^#

發表於 2015-4-30 16:51 | 顯示全部帖子

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

帖子: 78
主題: 30
精華: 0
積分: 109
點名: 0
作業系統: XP
軟體版本: XP
閱讀權限: 20
註冊時間: 2014-5-15
最後登錄: 2018-9-16

論壇贊助勳章

4^#

發表於 2015-5-6 00:50 | 顯示全部帖子

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

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

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

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

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

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

請各位大大幫忙了

感覺會爆炸的excel

帖子: 78
主題: 30
精華: 0
積分: 109
點名: 0
作業系統: XP
軟體版本: XP
閱讀權限: 20
註冊時間: 2014-5-15
最後登錄: 2018-9-16

論壇贊助勳章

5^#

發表於 2015-5-6 00:52 | 顯示全部帖子

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

帖子: 78
主題: 30
精華: 0
積分: 109
點名: 0
作業系統: XP
軟體版本: XP
閱讀權限: 20
註冊時間: 2014-5-15
最後登錄: 2018-9-16

論壇贊助勳章

6^#

發表於 2015-5-6 13:23 | 顯示全部帖子

大大
請問這一段如何改
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  資料最後不一定是在這一列
不知道大大可以指點一下嗎？

帖子: 78
主題: 30
精華: 0
積分: 109
點名: 0
作業系統: XP
軟體版本: XP
閱讀權限: 20
註冊時間: 2014-5-15
最後登錄: 2018-9-16

論壇贊助勳章

7^#

發表於 2015-5-8 02:00 | 顯示全部帖子

本帖最後由 GBKEE 於 2015-5-8 08:59 編輯

大大我遇到一個問題

如果說篩選出來的資料沒半比資料巨集會出現錯誤
停留在 ActiveSheet.Paste 跟你說錯誤那該怎麼修改呢
謝謝

Sub 巨集9()
'
' 巨集9 巨集
'

Dim row_s1 As Integer

'檢查工作表1的B欄已有資料行數
row_s1 = Worksheets("紀錄-周同軸跌").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

Sheets("集合").Select

' ActiveSheet.Range("$A$1:GZ$55586").AutoFilter Field:=2, Criteria1:= _
' xlFilterToday, Operator:=xlFilterDynamic

ActiveSheet.Range("$A$1:GZ$100000").AutoFilter Field:=18, Criteria1:="<=0"
ActiveSheet.Range("$A$1:GZ$100000").AutoFilter Field:=20, Criteria1:=">=1000"
ActiveSheet.Range("$A$1:GZ$100000").AutoFilter Field:=25, Criteria1:="<=0"
ActiveSheet.Range("$A$1:GZ$100000").AutoFilter Field:=26, Criteria1:="<=-2"
ActiveSheet.Range("$A$1:GZ$100000").AutoFilter Field:=15, Criteria1:="<=0"
ActiveSheet.Range("$A$1:GZ$100000").AutoFilter Field:=7, Criteria1:="<=0"
ActiveSheet.Range("$A$1:GZ$100000").AutoFilter Field:=6, Criteria1:="<=0"
ActiveSheet.Range("$A$1:GZ$100000").AutoFilter Field:=29, Criteria1:=">=50"
ActiveSheet.Range("$A$1:GZ$100000").AutoFilter Field:=30, Criteria1:=">=50"

Range("a2:gz2").Select '第二欄a2~gz2
Range(Selection, Selection.End(xlDown)).Select '選擇到最後一欄
Selection.Copy
Worksheets("紀錄-adxr跌").Select
Cells(row_s1 + 1, 2).Select
ActiveSheet.Paste

Sheets("集合").Select
ActiveSheet.ShowAllData

End Sub