VBA返回名称在列表中的匹配项

Sub FindMatch()
    Dim myList As Range
    Dim targetName As String
    Dim cell As Range
    Dim matchFound As Boolean
    
    ' 设置列表范围
    Set myList = Worksheets("Sheet1").Range("A1:A10")
    
    ' 设置目标名称
    targetName = "John"
    
    ' 初始化匹配项标志
    matchFound = False
    
    ' 遍历列表中的每个单元格
    For Each cell In myList
        ' 检查单元格的值是否与目标名称匹配
        If cell.Value = targetName Then
            ' 找到匹配项
            matchFound = True
            ' 在另一个单元格中显示匹配项
            Worksheets("Sheet1").Range("B1").Value = cell.Value
            Exit For ' 可选择退出循环，如果只需找到第一个匹配项
        End If
    Next cell
    
    ' 检查是否找到匹配项
    If Not matchFound Then
        MsgBox "未找到匹配项。"
    End If
End Sub