Excel VBA -搜索列表和弹出消息

Sub SearchList()
    Dim searchRange As Range
    Dim searchValue As String
    Dim resultRange As Range
    Dim resultRow As Long
    
    ' 定义数据范围
    Set searchRange = Range("A1:A10")
    
    ' 获取搜索条件
    searchValue = InputBox("请输入搜索条件：")
    
    ' 初始化结果集合
    Set resultRange = Range("C1:C10")
    resultRow = 1
    
    ' 遍历数据范围
    For Each cell In searchRange
        ' 判断条件
        If cell.Value = searchValue Then
            ' 将满足条件的结果存储到结果集合中
            resultRange.Cells(resultRow).Value = cell.Value
            resultRow = resultRow + 1
        End If
    Next cell
    
    ' 弹出消息框显示搜索结果
    MsgBox "搜索完成！共找到 " & resultRow - 1 & " 条结果。"
End Sub