vba遍历字符串_使用VBA在工作表中搜索字符串

I am trying to search for a particular string "ERROR" in all the worksheets in the workbook and make it bold and color the found cell red.

I am able to parse through each worksheet. I am not able to use the Find function of VBA.

解决方案

Here's an example of using Find and formatting the found cells

Sub FindERROR()

Dim SearchString As String

Dim SearchRange As Range, cl As Range

Dim FirstFound As String

Dim sh As Worksheet

' Set Search value

SearchString = "ERROR"

Application.FindFormat.Clear

' loop through all sheets

For Each sh In ActiveWorkbook.Worksheets

' Find first instance on sheet

Set cl = sh.Cells.Find(What:=SearchString, _

After:=sh.Cells(1, 1), _

LookIn:=xlValues, _

LookAt:=xlPart, _

SearchOrder:=xlByRows, _

SearchDirection:=xlNext, _

MatchCase:=False, _

SearchFormat:=False)

If Not cl Is Nothing Then

' if found, remember location

FirstFound = cl.Address

' format found cell

Do

cl.Font.Bold = True

cl.Interior.ColorIndex = 3

' find next instance

Set cl = sh.Cells.FindNext(After:=cl)

' repeat until back where we started

Loop Until FirstFound = cl.Address

End If

Next

End Sub