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

Excel宏是Excel中的一种自动化工具，它可以用于执行复杂的任务和操作，包括查找文本并将结果存储在新工作表中。宏是一段可以重复执行的代码，通过录制用户在Excel中的操作，将其转化为可执行的VBA代码。

在Excel中，查找文本并将结果存储在新工作表中的过程可以通过以下步骤完成：

打开Excel，并在菜单栏中选择"开发工具"。如果开发工具未显示在菜单栏中，可以通过"选项"->"自定义功能区"来启用。
在"开发工具"选项卡中，点击"Visual Basic"，进入VBA编辑器界面。
在VBA编辑器中，点击"插入"->"模块"，插入一个新的VBA模块。
在模块中编写VBA代码来执行查找文本的操作。下面是一个示例代码：

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