用vba写一个查找代码

以下是一个简单的VBA查找代码，它可以在Excel中查找指定单元格中的特定文本或数字。

Sub Find_Text()

Dim FindString As String
Dim FoundCell As Range

FindString = InputBox("Enter text to find:")
Set FoundCell = Cells.Find(What:=FindString, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)

If Not FoundCell Is Nothing Then
FoundCell.Select
MsgBox "Text found in cell " & FoundCell.Address
Else
MsgBox "Text not found."
End If

End Sub

要使用此代码，请按下Alt + F11，打开VBA编辑器。然后，选择要运行代码的工作表，然后将代码复制并粘贴到工作表的代码窗格中。最后，按下F5键以运行代码。输入要查找的文本或数字，然后代码将搜索工作表中的所有单元格，并在找到匹配项时弹出消息框。