Excel Smart Найти и заменить только определенные символы

Я хочу изменить INT на INTERNATIONAL и NA на НАЦИОНАЛЬНУЮ АССАМБЛЕЮ во всей книге excel через окно Excel или Найти и заменить. Но когда я запускаю макрос или меняю его с помощью диалогового окна «Найти и заменить», он также заменяет NA с CHINA на последние 2 символа, и он стал CHINATIONAL ASSEMBLY и INTERIOR INTERNATIONALERIOR.

Теперь, я хочу, чтобы Excel должен только наглядно найти символ NA в книге, который не входит в какой-либо другой символ, также символ INT, который не прикрепляется к какому-либо другому персонажу.

3 Solutions collect form web for “Excel Smart Найти и заменить только определенные символы”

Если вы идете по маршруту VBA, попробуйте использовать Regular Expressions

Вот начало

 Sub ReplaceWithRE() Dim re As Object 'RegExp Dim rng As Range, cl As Range Dim sh As Worksheet Dim wb As Workbook Dim sReplace As String Dim aReplace(0 To 1, 0 To 1) As String Dim i As Long Set wb = ActiveWorkbook Set re = CreateObject("vbscript.regexp") ' New RegExp re.Global = True re.IgnoreCase = False re.MultiLine = True ' Load array of patterns and replacements aReplace(0, 0) = "\bINT\b" aReplace(0, 1) = "INTERNATIONAL" aReplace(1, 0) = "\bNA\b" aReplace(1, 1) = "NATIONAL ASSEMBLY" For Each sh In wb.Worksheets On Error Resume Next Set rng = sh.UsedRange.SpecialCells(xlCellTypeConstants) If Err.Number <> 0 Then Err.Clear Else On Error GoTo 0 For Each cl In rng sReplace = cl.Value ' Test each cell for each pattern, replace when found For i = 0 To UBound(aReplace, 1) re.Pattern = aReplace(i, 0) If re.Test(sReplace) Then sReplace = re.Replace(sReplace, aReplace(i, 1)) End If Next cl.Value = sReplace Next End If Next End Sub 

Если значения, которые вы хотите заменить, сами по себе находятся в ячейках (нет другого текста), определенно следуйте решению CharlieRB . Если значения находятся в ячейках, наряду с дополнительным текстом, будет работать слегка измененная версия.

Откройте окно «Найти и заменить». Перейдите на вкладку «Заменить».

Найти и заменить

Введите значения «Найти что» и «Заменить на». Нажмите кнопку «Найти все».

Просмотрите список внизу, чтобы узнать, какие записи были найдены. Выделите запись, которую хотите обновить, и нажмите кнопку «Заменить».

В окне « Find and Replace вам необходимо установить флажок « Match entire cell contents запустить его.

Введите описание изображения здесь

  • Удалите повторяющиеся строки в excel, если не все столбцы одинаковы
  • Применить формулу к конкретным ячейкам в Microsoft Excel
  • Как восстановить поврежденный файл Excel
  • HYPERLINK не работает, когда ссылка на внешнюю книгу закрыта
  • Как «отключить» или «обратный поворот» в Excel?
  • Вероятная причина искажения файлов excel
  • Предотвратить преобразование текста в столбцы Excel
  • Excel 2010: Формула для суммы и даты возврата
  • Excel VBA «Отменить выбор»
  • Excel Условное форматирование Несколько баров данных и значки данных в одной ячейке
  • Как добавить изображение в заголовок страницы при печати таблиц Excel 2000?
  • Давайте будем гением компьютера.