【エクセルマクロ】オートフィルタで除外設定：使用例９選

Sub オートフィルタで除外を設定()

    ActiveSheet.Range("A1").CurrentRegion.AutoFilter _
            Field:=4, _
            Criteria1:="<>AB型"

End Sub

Sub オートフィルタで除外を設定()

    Dim Target As String

    Target = "AB型"

    ActiveSheet.Range("A1").CurrentRegion.AutoFilter _
            Field:=4, _
            Criteria1:="<>" & Target

End Sub

Sub オートフィルタで除外をセル参照で指定()

    Dim Target As Range

    Set Target = Range("G1")

    ActiveSheet.Range("A1").CurrentRegion.AutoFilter _
            Field:=4, _
            Criteria1:="<>" & Target

End Sub

Sub オートフィルタで背景色なしを抽出()

    ActiveSheet.Range("A1").CurrentRegion.AutoFilter _
            Field:=2, _
            Operator:=xlFilterNoFill

End Sub

Sub 取り消し線がついていないデータのみフィルタ抽出()

Dim LastRow As Long
Dim i As Long

    'D列の最終行を取得
    LastRow = Cells(Rows.Count, 4).End(xlUp).Row

    'D列をループ
    For i = 1 To LastRow

        '取消線が引いてあるかチェック
        If Cells(i, 4).Font.Strikethrough = True Then

            'セルの背景色を黄色にする
            Cells(i, 4).Interior.Color = 65535

        End If

    Next i

    '黄色セルのみフィルタ抽出　(取り消し線を引いたセル)
    Range("A1").AutoFilter Field:=4, Criteria1:=RGB(255, _
        255, 0), Operator:=xlFilterCellColor

End Sub

Sub 太文字以外を除外してフィルタ抽出()

Dim LastRow As Long
Dim c As Range

    'B列の最終行を取得
    LastRow = Cells(Rows.Count, 2).End(xlUp).Row

    'B列をループ
    For Each c In Range("B2:B" & LastRow)

        '太文字かチェック
        If c.Font.Bold = True Then

            'セルの背景色を黄色にする
            c.Interior.Color = 65535

        End If

    Next c

    '黄色セルのみフィルタ抽出　(太文字になっているセル)
    Range("A1").AutoFilter Field:=2, Criteria1:=RGB(255, _
        255, 0), Operator:=xlFilterCellColor

End Sub

Sub オートフィルタで除外を設定()

    ActiveSheet.Range("A1").CurrentRegion.AutoFilter _
            Field:=4, _
            Criteria1:="<>*A*"

End Sub

Sub オートフィルタで除外を設定()

    ActiveSheet.Range("A1").CurrentRegion.AutoFilter _
            Field:=4, _
            Criteria1:="<>AB型", Operator:=xlAnd, Criteria2:="<>B型"

End Sub

Sub オートフィルタで複数列に除外データを設定()

    With ActiveSheet.Range("A1")
        .CurrentRegion.AutoFilter Field:=3, Criteria1:="<>女"
        .CurrentRegion.AutoFilter Field:=4, Criteria1:="<>O型"
    End With

End Sub