用Sheet2表中查找的A列对应的值,批量用B列对应的值替换
Sub jnsbo1()
Sheets("Sheet2").Select
Dim row1&
row1 = Range("A65536").End(xlUp).row
Sheets("Sheet1").Select
For x = 1 To row1
Cells.Replace What:=Range("Sheet2!A" & x).Value, Replacement:=Range("Sheet2!B" & x).Value, LookAt:=xlWhole, SearchOrder _
:=xlByRows, MatchCase:=True, SearchFormat:=False, ReplaceFormat:=False
Next x
End Sub
将需要替换的字段放到工作表“查找字段”的“A”列,然后执行如下代码。
Sub 替换()
Row_end = Sheets("查找字段").[A65536].End(xlUp).Row
For i = 1 To Row_end
Cells.Replace What:=Sheets("查找字段").Cells(i, 1), Replacement:="", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Next
End Sub
EXCEL中,也可以查找---视图---替换---空着----全部替换。表中的“视图”就都没有了。