「項目1」」から空白以外のセルを抽出します。
[ポイント]
検索条件は「<>」。

Private Sub CommandButton1_Click()

If OptionButton1 = True Then

'空白セルを抽出するための条件
Worksheets("単語帳").Cells(4, "C").Value = "="

ElseIf OptionButton2 = True Then

'空白セル以外を抽出するための条件
Worksheets("単語帳").Cells(4, "C").Value = "<>"

End If


'検索を実行
Range("B9:D109").AdvancedFilter Action:=xlFilterInPlace, _
CriteriaRange:=Range("C3:C4"), Unique:=False

End Sub