Question

因此，附加的VBA代码适用于我正在寻找的内容，但它有一个重要问题。它不像我想要的那样匹配整个excel单元格内容。相反，如果它将替换单元格中的单个文本而不是单元格替换单元格。任何人都有一些提示，如果整个单元格内容与单元格中的任何文本匹配，我如何更改为仅替换文本？

Sub MultiFindReplace()
Dim Rng As Range
Dim InputRng As Range, ReplaceRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng =  Application.Selection
Set InputRng = Application.InputBox("Original Range", xTitleId, InputRng.Address, Type:8)
Set ReplaceRng = Application.InputBox("Replace Range :", xTitleId, Type:=8)
Application.ScreenUpdating = False
For Each Rng In ReplaceRng.Columns(1).Cells
InputRng.Replace what:=Rng.Value, replacement:=Rng.Offset(0, 1).Value
Next
Application.ScreenUpdating = True
End Sub

Answer 1

添加参数

LookAt:=xlWhole

到Replace

InputRng.Replace what:=Rng.Value, _
                 replacement:=Rng.Offset(0, 1).Value, _
                 LookAt:=xlWhole

Excel的批量查找/替换功能

1 个答案: