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 запустить его.

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

  • Список поиска зависит от содержимого другой ячейки
  • Вставка / отображение двухстраничного объекта Word в листе Excel
  • Почему Office 2010 не открывается файл Excel?
  • Как получить заголовок Excel на каждой странице печати в качестве первой строки таблицы
  • Почему excel всегда говорит «.. может содержать функции, которые не совместимы с CSV» при сохранении CSV-файла?
  • Можно ли суммировать весь столбец без установки явных границ ячеек в Excel?
  • Функции массива Excel - как подсчитывать непустые ячейки на нескольких листах?
  • Таблица сводных таблиц Excel - как сортировать строки как числа
  • В чем разница между CSV (MS-Dos), CSV (Macintosh), CSV (с разделителями-запятыми)
  • Удаление URL-параметра в Excel
  • Проверьте, является ли текст ячейки Excel числовым, используя только формулу
  • Стэнфордский Wrangler идеален, но налагает ограничения, какие другие варианты?
  • Давайте будем гением компьютера.