Sub 複数条件フィルター() Worksheets("Sheet2").Range("B5:K50").ClearContents Sheets("Sheet1").Select intRow = Range("B4").End(xlDown).Row Range("B4:K" & intRow).Select Selection.AutoFilter strSeib = "QD-6772" strHin = "スプロケット" strKei = "FBN40B14D25" ActiveSheet.Range("B4:K" & intRow).AutoFilter field:=1, Criteria1:=strSeib ActiveSheet.Range("B4:K" & intRow).AutoFilter field:=4, Criteria1:=strHin ActiveSheet.Range("B4:K" & intRow).AutoFilter field:=5, Criteria1:=strKei Selection.Copy Sheets("Sheet2").Select Range("B5").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Sheets("Sheet1").Select ActiveSheet.AutoFilterMode = False Application.CutCopyMode = False Range("A1").Select Sheets("Sheet2").Select Range("A1").Select End Sub