Как найти и заменить определенный текст в текстовых полях в 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. Продолжайте нажимать OK, и в этом диалоговом окне введите новое значение текста, которое вы хотите. Смотрите скриншот:

5. Затем нажмите кнопку OK, старые значения будут заменены новыми значениями, которые вы ввели в текущем листе. Смотрите скриншоты:

Связанные статьи:

Как найти и заменить текст в заголовках диаграмм в Excel?

Как найти и заменить текст в комментариях в Excel?

Как изменить несколько гиперссылок одновременно в Excel?