用macrosreplacestring

我想从Excel文件中的所有工作表中replacestring。

这是我写的模块。 但是，我想从search（和replace）操作中排除列A.

我不知道该怎么做。 你可以让我知道模块中的变化，我可以从列表中排除列。

谢谢

Sub FindSignificant() Dim SearchString As String Dim SearchRange As Range, cl As Range Dim FirstFound As String Dim sh As Worksheet ' Set Search value SearchString = "SIGNIFICANT" 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:=xlFormulas, _ 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.Font.ColorIndex = 3 ' 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 

Answer 1

这应该解决你的麻烦：

 Do If not cl.column = 1 Then cl.Font.Bold = True cl.Font.ColorIndex = 3 ' cl.Interior.ColorIndex = 3 End If ' find next instance Set cl = sh.Cells.FindNext(After:=cl) ' repeat until back where we started Loop Until FirstFound = cl.Address