excel - 添加通配符搜索和其他条件

Question

我正在尝试向搜索框添加通配符，但即使搜索框中没有任何内容，执行也会继续，如果框为空，我应该如何停止搜索？
谢谢

For Each Cognome In intervallo
    If Cognome Like Sheets(1).Ricerca = "" Then
        Exit For
    ElseIf Cognome Like Sheets(1).Ricerca & "*" Then
        Sheets(4).Range(Cognome, Cognome.Offset(0, 8)).Copy
        Sheets(1).Range("A" & (Rows.Count)).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
    End If

Answer 1

在进入循环之前检查搜索词

Sub MyMacro()

    Dim s As String, r As Long
    Dim Cognome As Range, intervallo As Range

    Set intervallo = Sheets(4).Range("A1:A100")
    r = Sheets(1).Cells(Rows.Count, "A").End(xlUp).Row
    s = Trim(Sheets(1).Ricerca)

    If Len(s) = 0 Then
        MsgBox "Search box empty", vbExclamation
    Else
        For Each Cognome In intervallo
            If Cognome.Value2 Like s & "*" Then
                r = r + 1
                Cognome.Resize(1, 8).Copy
                Sheets(1).Range("A" & r).PasteSpecial xlPasteValues
            End If
        Next
    End If
End Sub