VBAで条件を満たすデータをフィルタリングする方法

2年 ago
結衣, 春花
1 minute

VBA では、AutoFilter メソッドを使って、条件を満たすデータを抽出できます。以下は、AutoFilterメソッドを使用して特定のカラムで値が 10 より大きいデータを抽出するコード例です。

Sub FilterData()
    Dim ws As Worksheet
    Dim rng As Range
    
    '设置工作表对象
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    '设置筛选范围，这里假设数据在A1:D10范围内
    Set rng = ws.Range("A1:D10")
    
    '开启自动筛选
    rng.AutoFilter
    
    '筛选指定列（假设筛选条件在第3列）
    rng.AutoFilter Field:=3, Criteria1:=">10"
    
    '关闭自动筛选
    rng.AutoFilterMode = False
End Sub

上のコードでは、 Worksheet オブジェクトとフィルタ対象の Range オブジェクトを Set ステートメントで設定しています。次に AutoFilter メソッドでオートフィルタを有効にし、フィルタ対象の列と条件を指定しています。最後に AutoFilterMode プロパティでオートフィルタを無効にしています。

ワークシート、フィルタ範囲、列、条件は、あなたのニーズに合わせてコードで変更できます。

bannerAds