如何在 Excel 的文本框中查找和替换特定文本？

“查找和替换”工具是一项重要功能，可快速更新工作表中的单元格内容或公式。然而，如果仅限于手动更新，在多个文本框中管理文本可能会很有挑战性。如果您需要在文本框中查找特定文本并高效替换它，本教程将指导您使用 VBA 代码分几步完成此任务。

在多个文本框中查找和替换特定文本

在多个文本框中查找和替换特定文本

您可以手动逐个查找和替换文本，但当处理多个文本框时，这个过程会变得繁琐且耗时。以下 VBA 代码提供了一种高效的方法，可以一次性完成此任务。

1. 激活您的工作表，并按住 ALT + F11 键打开 Microsoft Visual Basic for Applications 窗口。

2. 单击 插入 > 模块，并将以下代码粘贴到 模块窗口中。

VBA 代码：在当前工作表的文本框中查找和替换特定文本

Sub TextBoxReplace()
'Updateby20140603
Dim xWs As Worksheet
Dim shp As Shape
Dim xFindStr As String
Dim xReplace As String
xFindStr = Application.InputBox("Find:", xTitleId, "", Type:=2)
xReplace = Application.InputBox("Replace with:", xTitleId, "", Type:=2)
Set xWs = Application.ActiveSheet
On Error Resume Next
For Each shp In xWs.Shapes
    xValue = shp.TextFrame.Characters.Text
    shp.TextFrame.Characters.Text = VBA.Replace(xValue, xFindStr, xReplace, 1)
Next
End Sub

3. 然后按 F5 键运行此代码，将弹出一个提示框，提醒您输入要替换的旧文本。请参见截图：

4. 继续单击 确定，在此提示框中，输入您想要的新文本值，请参见截图：

5. 然后单击 确定 按钮，旧值将被替换为您在当前工作表中输入的新值。请参见截图：

相关文章：

如何在 Excel 中的图表标题中查找和替换文本？

如何在 Excel 的批注中查找和替换文本？

如何在 Excel 中一次性更改多个超链接路径？