ExcelVBA | 006 批量替换单元格内字符串For Next循环入门

技巧

1、如果代码比较多，最好使用强制声明，因为这样可以有效的防止变量名的错误出现。少的话不强求使用强制声明。强制声明的实现方法

代码区

Sub 替换宏()
    
    cells.Replace What:="小", Replacement:="大", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
End Sub


Sub ForNext循环()
    For i = 1 To 3 '因为只有3行,这里就to了3
        查找值 = Sheet9.cells(i, 1).Value '定义变量
        替换值 = Sheet9.cells(i, 2).Value '定义变量
        Sheet8.cells.Replace What:=查找值, Replacement:=替换值, LookAt:=xlWhole
        '利用上面录制并改造好的替换宏,实现批量多行替换
    Next
End Sub

Range.Replace方法（查的替换）

用的时候要标明参数，否则它将延续之前的状态，可能会导致非你想要的结果。

[mark_a]

Range.Replace 方法
返回 Boolean，它表示指定区域内单元格中的字符。使用此方法并不会更改选定区域或活动单元格。
语法

表达式.Replace(What, Replacement, LookAt, SearchOrder, MatchCase, MatchByte, SearchFormat, ReplaceFormat)

表达式 一个代表 Range 对象的变量。

[/mark_a]