「項目1」に「able」かつ「to」を含むものを抽出します。

Private Sub CommandButton1_Click()

MsgBox "「 " & ComboBox1.Text & " 」と「 " & ComboBox2.Text & " 」を含むものを抽出します。"


'シートに検索条件を転記 // 検索条件 1
Worksheets("単語帳").Cells(4, "C").Value = "*" & ComboBox1.Text & "*"

'シートに検索条件を転記 // 検索条件 2
Worksheets("単語帳").Cells(4, "D").Value = "*" & ComboBox2.Text & "*"

'検索を実行
'// Range("B9:D19")は、「データベースの範囲」
'// CriteriaRange:=Range("C3:D4")は、「検索条件の範囲」
Range("B9:C19").AdvancedFilter Action:=xlFilterInPlace, _
CriteriaRange:=Range("C3:D4"), Unique:=False


End Sub