選択以外フィルタで抽出

メモ VBA Excel 
Sub FilterNotSelected()
    Dim v
    v = Selection.Cells(1, 1).Value
    If Selection.Worksheet.AutoFilter Is Nothing Then
        Selection.AutoFilter
    End If
    Dim Af As AutoFilter
    Set Af = Selection.Worksheet.AutoFilter
    Dim Field
    Field = Selection.Column - Af.Range.Column + 1
    If Field <= Af.Range.Columns.Count Then
        Selection.AutoFilter Field:=Field, Criteria1:="<>" & v
    End If
End Sub