Как найти и заменить текст, сохраняя форматирование в Excel?
![]() |
![]() |
Поиск и замена с сохранением форматирования с помощью макроса
Поиск и замена с сохранением форматирования с помощью макроса
Нет других методов, кроме использования макроса, который поможет вам найти и заменить текст, сохраняя форматирование.
1. Нажмите клавиши Alt + F11, чтобы открыть окно Microsoft Visual Basic for Application.
2. Нажмите Вставить > Модуль и вставьте приведенный ниже код в скрипт.
VBA: Поиск и замена с сохранением форматирования
Sub CharactersReplace(Rng As Range, FindText As String, ReplaceText As String, Optional MatchCase As Boolean = False)
'UpdatebyExtendoffice20160711
Dim I As Long
Dim xLenFind As Long
Dim xLenRep As Long
Dim K As Long
Dim xValue As String
Dim M As Long
Dim xCell As Range
xLenFind = Len(FindText)
xLenRep = Len(ReplaceText)
If Not MatchCase Then M = 1
For Each xCell In Rng
If VarType(xCell) = vbString Then
xValue = xCell.Value
K = 0
For I = 1 To Len(xValue)
If StrComp(Mid$(xValue, I, xLenFind), FindText, M) = 0 Then
xCell.Characters(I + K, xLenFind).Insert ReplaceText
K = K + xLenRep - xLenFind
End If
Next
End If
Next
End Sub
Sub Test_CharactersReplace()
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
Set xRg = Application.InputBox("Select a range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
Call CharactersReplace(xRg, "KK", "Kutools", True)
End Sub
Совет: В коде KK — это строка, которую вы хотите найти, а Kutools — это строка, на которую вы хотите заменить. Вы можете изменить их по своему усмотрению.
3. Нажмите F5 , появится диалоговое окно, в котором вы сможете выбрать диапазон для поиска и замены, как показано на скриншоте:
4. Нажмите OK, и указанные строки в выбранных ячейках будут заменены, при этом форматирование останется неизменным.
Лучшие инструменты для повышения продуктивности работы с Office
Ускорьте работу в Excel с Kutools для Excel и ощутите новую степень эффективности. Kutools для Excel предлагает более300 расширенных функций для повышения продуктивности и экономии времени. Нажмите здесь, чтобы выбрать нужную вам функцию...
Office Tab добавляет вкладки в Office и делает вашу работу намного проще
- Включите редактирование и чтение с вкладками в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна, а не в отдельных окнах.
- Увеличьте свою продуктивность на50% и сократите сотни лишних кликов мышью каждый день!