Excel宏查找文本并将结果存储在新工作表中

Sub FindText()
    Dim searchText As String
    Dim resultSheet As Worksheet
    Dim searchRange As Range
    Dim resultRow As Integer

    ' 获取要查找的文本
    searchText = InputBox("请输入要查找的文本：")

    ' 创建新的工作表来存储查找结果
    Set resultSheet = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
    resultSheet.Name = "查找结果"

    ' 设置查找范围为整个工作簿的活动工作表
    Set searchRange = ThisWorkbook.ActiveSheet.UsedRange

    ' 初始化结果行号
    resultRow = 1

    ' 在查找范围内进行文本查找
    For Each cell In searchRange
        If InStr(cell.Value, searchText) > 0 Then
            ' 如果找到匹配的文本，则将结果存储在新工作表中
            resultSheet.Cells(resultRow, 1).Value = cell.Value
            resultRow = resultRow + 1
        End If
    Next cell

    ' 弹出消息框显示查找完成
    MsgBox "查找完成！结果已存储在名为“查找结果”的工作表中。"
End Sub