如何创建一个宏代码来实现Excel中的查找和替换文本？

通常，我们使用内置的“查找和替换”功能在Excel中搜索和替换值。实际上，您可以直接通过宏代码在Excel中查找和替换文本。本文将教您如何创建一个宏代码来实现Excel中的查找和替换文本功能。

创建一个宏代码以实现Excel中的查找和替换文本

创建一个宏代码以实现Excel中的查找和替换文本

请按照以下步骤创建一个宏代码以实现Excel中的查找和替换文本。

1. 按下 Alt + F11 键打开 Microsoft Visual Basic for Applications 窗口。

2. 在 Microsoft Visual Basic for Applications 窗口中，点击 插入 > 模块。然后将以下VBA代码复制到代码窗口中。

VBA代码：创建一个宏代码以实现Excel中的查找和替换文本

Sub FindandReplaceText()
'Update by Extendoffice 2018/5/24
    Dim xFind As String
    Dim xRep As String
    Dim xRg As Range
    On Error Resume Next
    Set xRg =Cells
    xFind = Application.InputBox("word to search:", "Kutools for Excel", , , , , 2)
    xRep = Application.InputBox("word to replace:", "Kutools for Excel", , , , , 2)
    If xFind = "False" Or xRep = "False" Then Exit Sub
    xRg.Replace xFind, xRep, xlPart, xlByRows, False, False, False, False
End Sub

3. 按下 F5 键运行代码。

4. 在第一个 Kutools for Excel 对话框中，输入要搜索的文本或值，然后点击 确定 按钮。参见截图：

5. 在第二个 Kutools for Excel 对话框中，输入要替换的文本或值，然后点击 确定 按钮。

然后所有指定的文本都会立即被替换为您想要的文本。

备注：此代码适用于当前活动的工作表。

相关文章：

• 如何在Excel中将所有空白单元格替换为特定数字或文本？
• 如何在Excel单元格中将逗号替换为换行符（Alt + Enter）？
• 如何在Excel中查找和替换工作表标签名称？
• 如何在Excel中查找包含逗号分隔列表的单元格中的值？
• 如何在Excel中找到两个列列表的交集？