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

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

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

Если вы идете по маршруту 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 запустить его.

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

  • Как я могу определить, существует ли лист a в рабочей книге?
  • Excel: переместить содержимое ячейки в комментарии
  • Самый простой способ сохранить вкладку «Процессы» Диспетчера задач в виде файла CSV?
  • Цветная ячейка, основанная на текстовом значении
  • Excel: как навсегда применить условное форматирование ко всей электронной таблице?
  • Фрагментация условного форматирования Excel
  • Как написать запрос в Microsoft SQL Server Management Studio, а затем использовать этот запрос в Excel
  • При использовании именованного диапазона в Excel (2013), как отобразить весь диапазон, но смещать одну ячейку?
  • Как заставить Excel (и другие продукты Microsoft Office) прекратить открытие файлов в одном приложении?
  • Мне нужна ячейка для автоматического заполнения, когда данные вводятся в соседнюю ячейку
  • Перенести документ Excel в отдельное окно
  • Давайте будем гением компьютера.