遍歷工作表以查找字符串並替換VBA EXCEL。

選擇。復制

細胞。Find(What:="* lighting * "，after: =活動單元格，lookin: = XL公式，lookat _

:=xlPart，SearchOrder:=xlByRows，SearchDirection:=xlNext，MatchCase:= _

False，MatchByte:=False，SearchFormat:=False)。使活動

細胞。FindNext(After:=ActiveCell)。使活動

細胞。FindNext(After:=ActiveCell)。使活動

細胞。FindNext(After:=ActiveCell)。使活動

細胞。FindNext(After:=ActiveCell)。使活動

細胞。FindNext(After:=ActiveCell)。使活動

細胞。FindNext(After:=ActiveCell)。使活動

ActiveCell。替換什麽:="* lighting * "，替換:= "Mani lighting *30倍"，看看:= _

xlPart，SearchOrder:=xlByRows，MatchCase:=False，SearchFormat:=False，_

ReplaceFormat:=False

細胞。FindNext(After:=ActiveCell)。使活動

ActiveCell。替換什麽:="* lighting * "，替換:= "Mani lighting *30倍"，看看:= _

xlPart，SearchOrder:=xlByRows，MatchCase:=False，SearchFormat:=False，_

ReplaceFormat:=False

細胞。FindNext(After:=ActiveCell)。使活動

ActiveCell。替換什麽:="* lighting * "，替換:= "Mani lighting *30倍"，看看:= _

xlPart，SearchOrder:=xlByRows，MatchCase:=False，SearchFormat:=False，_

ReplaceFormat:=False

細胞。FindNext(After:=ActiveCell)。使活動

ActiveCell。替換什麽:="* lighting * "，替換:= "Mani lighting *30倍"，看看:= _

xlPart，SearchOrder:=xlByRows，MatchCase:=False，SearchFormat:=False，_

ReplaceFormat:=False

細胞。FindNext(After:=ActiveCell)。使活動

ActiveCell。替換什麽:="* lighting * "，替換:= "Mani lighting *30倍"，看看:= _

xlPart，SearchOrder:=xlByRows，MatchCase:=False，SearchFormat:=False，_

ReplaceFormat:=False

細胞。FindNext(After:=ActiveCell)。使活動