「項目1」「項目2」に「able」を含むものを抽出します。
[ポイント]
検索条件が並んでいる。

Private Sub CommandButton1_Click()


MsgBox "「項目1」「項目2」の両方に 「 " & ComboBox1.Text & " 」を含むものを抽出します。"

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

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

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

End Sub