EXCEL VBA AdvancedFilterメゾット・フィルターオプション・データ抽出・抽出条件・詳細条件・日付範囲抽出・抽出結果を別シート・重複削除

EXCEL VBA AdvancedFilterメゾット・フィルターオプション・データ抽出・抽出条件・詳細条件・日付範囲抽出・抽出結果を別シート・重複削除

'
'
Sub AdvancedFilter00() 'A列・B列にあるデータから重複データを取り除きD・E列に表示します。

    ActiveSheet.Columns("A:B").AdvancedFilter Action:=xlFilterCopy, _
            CopyToRange:=ActiveSheet.Range("D1"), Unique:=True
            
End Sub
'

EXCEL VBA AdvancedFilterメゾット　指定した複数条件でのデータ抽出・フィルター処理（同一シートでの表示）

'
'
Sub AdvancedFilter01() '指定した複数条件でのデータ抽出（同一シートでの結果表示）
 
    ActiveSheet.Range("A8").CurrentRegion.AdvancedFilter Action:=xlFilterInPlace, _
    CriteriaRange:=ActiveSheet.Range("A1").CurrentRegion
    
    'セルA8からなるデータ一覧にたして、セルA1からなる記載のフィルター条件により、データを抽出する。
 
End Sub '
'
'-------------------------------------------------------------------------------
'
Sub AdvancedFilter01_ShowAllData() 'データ抽出したデータを再表示する。
 
    If ActiveSheet.FilterMode Then  'アクティブシートがフィルターモードでならば
        ActiveSheet.ShowAllData    '全てのデータ表示
    End If
 
End Sub
'

EXCEL VBA AdvancedFilterメゾット　指定した複数条件でのデータ抽出（別シートに結果を表示）

'
'
Sub AdvancedFilter02() '指定した複数条件でのデータ抽出（別シートでの結果表示）


    Worksheets("Sheet2").Cells.Clear  'データ抽出の転記先の別シートをクリアー
    
    Range("A8").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, _
    CriteriaRange:=Range("A1").CurrentRegion, CopyToRange:=Worksheets("Sheet2").Range("A1"), Unique:=False
    'セルA8からなるデータ一覧に対して、セルA1からなる表のフィルター条件により、データを抽出して、別シートに転記します。
 
End Sub
'

EXCEL VBA AdvancedFilterメゾット　指定した複数条件でのデータ抽出（別シートでの結果表示）範囲期間の抽出

'
'
Sub AdvancedFilter03()  '指定した複数条件でのデータ抽出（別シートでの結果表示）選択期間を転記
    
    Dim ws01, ws02 As Worksheet
             
    Set ws01 = Worksheets("入金データ")
    Set ws02 = Worksheets("抽出結果")
    
    ws02.Cells.Clear  'データ抽出の転記先のシート[抽出結果]をクリアー

    
    ws01.Range("A4").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, _
    CriteriaRange:=ws01.Range("B1:C2"), CopyToRange:=ws02.Range("A1"), Unique:=False
    'セルA4からなるデータ一覧(入金データ)に対して、セルB1：C2からなる表のフィルター条件により、データを抽出して、別シートに転記します。
        
End Sub
'

EXCEL VBA AdvancedFilterメゾット　指定した複数条件でのデータ抽出・抽出結果により、別シートに結果表示（複数シートに転記）

'
'
Sub AdvancedFilter04()   '指定した複数条件でのデータ抽出・抽出結果により、別シートに結果表示（複数シートに転記）

    Dim ws01, ws02, ws03 As Worksheet
             
    Set ws01 = Worksheets("人事リスト")
    Set ws02 = Worksheets("男性")
    Set ws03 = Worksheets("女性")
    
    ws02.Rows("3:100").Clear  'データ抽出の転記先のシート[男性]3行目～100行目までクリアー
    ws03.Rows("3:100").Clear  'データ抽出の転記先のシート[女性]3行目～100行目までクリアー
    
    ws01.Range("A4").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, _
    CriteriaRange:=ws02.Range("A1:A2"), CopyToRange:=ws02.Range("A4"), Unique:=False
     'セルA4からなるデータ一覧(人事リスト)に対して、性別が”男”のデータは、シート「男性」へデータが転記されます。
    
    ws01.Range("A4").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, _
    CriteriaRange:=ws03.Range("A1:A2"), CopyToRange:=ws03.Range("A4"), Unique:=False
     'セルA4からなるデータ一覧(人事リスト)に対して、性別が”女”のデータは、シート「女性」へデータが転記されます。
    
    
End Sub
'