vba 自動過濾器大於/小於 0

Question

我想過濾那些正數，刪除過濾器，然后過濾負數，然后再次刪除過濾器。

我使用此代碼，這不起作用。

Selection.AutoFilter Field:=7, Criteria1:=">0"
Selection.AutoFilter Field:=7, Criteria1:="<0"

能否請你幫忙？

謝謝！

Answer 1

這會：

1. 檢查是否已應用過濾器。 如果沒有，請打開過濾器
2. 應用過濾器 1 ( >0 )
3. 移除過濾器
4. 應用過濾器 2 ( <0 )
5. 移除過濾器

代碼只是應用過濾器，然后將它們關閉。 這意味着您在運行代碼時不會看到任何事情發生。 如果您使用 ( F8 ) 單步執行代碼，並刪除ScreenUpdating = False ，您將看到工作表上發生的所有事情。

---

Option Explicit

Sub Filter()
Application.ScreenUpdating = False

Dim ws As Worksheet: Set ws = ThisWorkbook.Sheets("Sheet1") 'Put your sheet name inside the quotes

With ws
  If Not .AutoFilterMode Then .Range("G1").AutoFilter

     'First Critiera
     .Range("G1").AutoFilter Field:=7, Criteria1:=">0"
         'Do what you want with your filtered data here
     .AutoFilterMode = False

     'Second Criteria
     .Range("G1").AutoFilter Field:=7, Criteria1:="<0"
         'Do what you want with your filtered data here
     .AutoFilterMode = False
End With

Application.ScreenUpdating = True
End Sub