「項目1」または「項目2」に「able」を含むものを抽出します。
[ポイント]
検索条件が斜めに入力されている。

Private Sub CommandButton1_Click()

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

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

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

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

End Sub