Private Sub CommandButton1_Click()
 
   Worksheets("Sheet2").Range("B5:K50").ClearContents
   
   Sheets("Sheet1").Select
   intRow = Range("B4").End(xlDown).Row
   
   Range("B4:K" & intRow).Select
   Selection.AutoFilter
   
   strSeib = TextBox1.Text
   strHin = TextBox2.Text
   strKei = TextBox3.Text
   
   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
   
   Unload フィルター
    
End Sub
-----------------------------------------------------------------------------
Private Sub UserForm_Initialize()

    TextBox1.Text = ""
    TextBox2.Text = ""
    TextBox3.Text = ""

End Sub