Note: The other languages of the website are Google-translated. Back to English

Поиск и выделение результатов поиска в Excel

В Excel вы можете использовать функцию «Найти и заменить», чтобы найти определенное значение, но знаете ли вы, как выделить результаты поиска после поиска? В этой статье я расскажу о двух различных способах облегчения поиска и выделения результатов поиска в Excel.

Искать и выделять результаты поиска по коду VBA

Поиск и выделение результатов поиска с помощью условного форматирования

Ищите и выделяйте результаты поиска с помощью удобного инструмента


Искать и выделять результаты поиска по коду VBA

В Excel есть код VBA, который может помочь вам найти значение и затем выделить результаты поиска.

1. Включите лист, который вы хотите найти, и выделите результаты, нажмите Alt + F11 ключи для открытия Microsoft Visual Basic для приложений окно.

2. Нажмите Вставить > Модулии вставьте приведенный ниже код в новый модуль.

VBA: выделение результатов поиска

Sub FindRange()
'UpdatebyExtendoffice20190813
Dim xRg As Range
Dim xFRg As Range
Dim xStrAddress As String
Dim xVrt As Variant
xVrt = Application.InputBox(prompt:="Search:", Title:="www.extendoffice.com")
If xVrt <> "" Then
Set xFRg = ActiveSheet.Cells.Find(what:=xVrt)
If xFRg Is Nothing Then
MsgBox prompt:="Cannot find this value", Title:="www.extendoffice.com"
Exit Sub
End If
xStrAddress = xFRg.Address
Set xRg = xFRg
Do
Set xFRg = ActiveSheet.Cells.FindNext(After:=xFRg)
Set xRg = Application.Union(xRg, xFRg)
Loop Until xFRg.Address = xStrAddress
If xRg.Count > 0 Then
xRg.Interior.ColorIndex = 8
xRsp = MsgBox(prompt:="Do you want to cancel highlighting?", Title:="www.extendoffice.com", Buttons:=vbQuestion + vbOKCancel)

If xRsp = vbOK Then xRg.Interior.ColorIndex = xlNone
End If
End If
End Sub

doc search выделить результат поиска 1

3. Нажмите F5 нажмите клавишу, затем появится окно поиска, в котором вы можете ввести указанное вами значение.
doc search выделить результат поиска 2

4. Нажмите OK, совпадающие результаты были выделены цветом фона. Кроме того, появляется диалоговое окно с вопросом, отменить ли выделение. Нажмите OK чтобы отменить выделение и закрыть диалоговое окно, нажмите Отмена чтобы сохранить выделение и закрыть диалог.
doc search выделить результат поиска 3

Внимание:

1. Если подходящего значения не найдено, появится диалоговое окно с напоминанием.
doc search выделить результат поиска 4

2. Этот VBA работает для всего активного листа и нечувствителен к регистру.

не двигаться

Вы хотите повысить зарплату и много времени проводить с семьей?

Вкладка Office повышает эффективность работы Microsoft Office на 50% прямо сейчас

Невероятно, но работать с двумя или более документами проще и быстрее, чем над одним.

По сравнению с известными браузерами инструмент с вкладками в Office Tab более мощный и эффективный.

Сократите для вас сотни щелчков мыши и набора текста с клавиатуры каждый день, попрощайтесь с рукой мыши.

Если вы обычно работаете с несколькими документами, вкладка Office поможет вам сэкономить время.

30- дневная бесплатная пробная версия, кредитная карта не требуется.

Узнать большеСкачать сейчас


Поиск и выделение результатов поиска с помощью условного форматирования

В Excel функция условного форматирования также может автоматически выделять результаты поиска.

Предположим, что данные и окно поиска отображаются, как показано на скриншоте ниже, теперь выполните следующие действия:
doc search выделить результат поиска 5

1. Выберите диапазон, в котором нужно выполнить поиск, и нажмите Главная > Условное форматирование > Новое правило.
doc search выделить результат поиска 6

2. в Новое правило форматирования диалоговое окно, выберите Используйте формулу, чтобы определить, какие ячейки следует форматировать. в Выберите тип правила раздел, затем перейдите в текстовое поле под Формат значений, где эта формула истинна, напишите = И ($ E $ 2 <> "", $ E $ 2 = A4).

E2 - это ячейка, в которую вы поместите поисковое значение, а A4 - это первая ячейка в диапазоне, в котором вы выполняете поиск.
doc search выделить результат поиска 7

3. Нажмите Формат кнопку, перейдите к Формат ячеек диалога под Заполнять на вкладке выберите нужный цвет. Нажмите OK > OK чтобы закрыть диалоги.
doc search выделить результат поиска 8

С этого момента, когда вы вводите ключевое слово в ячейку E2, результаты поиска будут автоматически выделяться в указанном диапазоне.


Ищите и выделяйте результаты поиска с помощью удобного инструмента

Если вы хотите найти два или более значений и один раз выделить результаты поиска, Отметить ключевое слово особенность Kutools for Excel мог бы оказать вам услугу.

Kutools for Excel - это мощная надстройка, в которой собрано более 300 удобных инструментов для повышения эффективности работы в Excel. Нажмите, чтобы получить 30-дневную бесплатную пробную версию прямо сейчас.

1. Выберите диапазон данных для поиска, щелкните Кутулс > Текст > Отметить ключевое слово.
doc search выделить результат поиска 8

2. Во всплывающем диалоговом окне введите значения, которые вы хотите найти, и разделите их запятыми в Ключевое слово текстовое окно. Затем выберите Отметить параметры и цвет шрифта, как вам нужно. Нажмите Ok.

Если вы хотите искать значение с учетом регистра, отметьте С учетом регистра флажок.
doc search выделить результат поиска 8

Тогда совпавшие результаты будут выделены другим цветом шрифта.
doc search выделить результат поиска 8

Для Отметить ключевое слово функция, вы также можете найти часть строки в диапазоне. Предположим, что поисковые ячейки содержат мяч или прыжок, введите мяч, прыжок в Ключевое слово текстовое поле, затем укажите настройки и нажмите Ok.
doc search выделить результат поиска 8doc search выделить результат поиска 8


Файл примера

Нажмите, чтобы загрузить образец файла


Другие операции (статьи), связанные с форматированием Conditioanl

Подсчет / суммирование ячеек по цветам с условным форматированием в Excel
Теперь это руководство расскажет вам о некоторых удобных и простых методах быстрого подсчета или суммирования ячеек по цвету с условным форматированием в Excel.

Создать диаграмму с условным форматированием в Excel
Например, у вас есть таблица оценок для класса, и вы хотите создать диаграмму для цветных оценок в разных диапазонах. В этом руководстве представлен метод решения этой задачи.

Гистограмма с накоплением условного форматирования в Excel
В этом руководстве показано, как создать столбчатую диаграмму с условным форматированием, как показано на скриншоте ниже, шаг за шагом в Excel.

Условное форматирование строк или ячеек, если два столбца равны в Excel
В этой статье я представляю метод условного форматирования строк или ячеек, если два столбца равны в Excel.

Применить условное форматирование для каждой строки в Excel
Иногда может потребоваться применить условное форматирование для каждой строки. Кроме многократной установки одних и тех же правил для каждой строки, есть несколько уловок для решения этой задачи.


  • Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы и хранение данных; Разделить содержимое ячеек; Объедините повторяющиеся строки и сумму / среднее значение... Предотвращение дублирования ячеек; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Избранные и быстро вставляйте формулы, Диапазоны, диаграммы и изображения; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма ...
  • Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии...
  • Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом ...
  • Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Группировка сводной таблицы по номер недели, день недели и другое ... Показать разблокированные, заблокированные ячейки разными цветами; Выделите ячейки, у которых есть формула / имя...
вкладка kte 201905
  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
офисный дно
Сортировать комментарии по
Комментарии (5)
Оценок пока нет. Оцените первым!
Этот комментарий был сведен к минимуму модератором на сайте
Привет, спасибо за вашу помощь, но когда мы нажимаем «ОК», чтобы отменить выделение. изменение цвета ячейки. Я хочу оригинальный цвет после отмены. Какой код мне нужно изменить в VBA.
Этот комментарий был сведен к минимуму модератором на сайте
Как вы можете изменить это, чтобы также перейти к выделенной ячейке.
Этот комментарий был сведен к минимуму модератором на сайте
Привет, Джефф, если вы хотите выделить все выделенные ячейки, просто добавьте
xRg.Select
в конце приведенного выше кода см. снимок экрана:
https://www.extendoffice.com/images/stories/comments/sun-comment/doc-jump-to-highlighted-cell-1.png
Если вы хотите перейти к первой выделенной ячейке, добавьте
xRg.Areas(xRg.Areas.Count)(1).Select
в конце приведенного выше кода см. снимок экрана:
https://www.extendoffice.com/images/stories/comments/sun-comment/doc-jump-to-highlighted-cell-2.png
Этот комментарий был сведен к минимуму модератором на сайте
Работает ли это для Excel 2013 и что мне нужно изменить, чтобы соответствовать версии 2003? Я пробовал ваш код, но нет кнопки для сохранения модуля
Этот комментарий был сведен к минимуму модератором на сайте
Извините, это Excel 2003
Здесь еще нет комментариев
Оставляйте свои комментарии
Публикация как гость
×
Оценить этот пост:
0   Характеристики
Предлагаемые места

Подписывайтесь на Нас

Copyright © 2009 - www.extendoffice.ком. | Все права защищены. Питаться от ExtendOffice, | Карта сайта
Microsoft и логотип Office являются товарными знаками или зарегистрированными товарными знаками Microsoft Corporation в США и / или других странах.
Защищено Sectigo SSL