Поиск и выделение конкретных данных в Excel

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

Выделение результатов поиска с помощью кода VBA

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

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

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

1. Откройте лист, в котором хотите выполнить поиск и выделение результатов, нажмите клавиши "Alt" + "F11", чтобы открыть окно "Microsoft Visual Basic for Applications".

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

3. Нажмите клавишу "F5", затем появится окно поиска, где вы можете ввести искомое значение.

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

Примечания:

1. Если совпадающее значение не найдено, появится диалоговое окно с уведомлением.

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

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

Предположим, данные и поле поиска отображаются, как показано на скриншоте ниже. Теперь выполните следующие шаги:

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

2. В диалоговом окне "Новое правило форматирования" выберите "Использовать формулу для определения форматируемых ячеек" в разделе "Выбор типа правила", затем перейдите в текстовое поле под "Форматировать значения, для которых эта формула верна", и введите эту формулу:

=AND($E$2<>"",$E$2=A4)

3. Нажмите кнопку "Формат", перейдите в диалоговое окно "Формат ячеек", на вкладке "Заливка" выберите нужный цвет. Нажмите "ОК" > "ОК", чтобы закрыть диалоговые окна.

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

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

1. Выберите диапазон данных, в котором хотите выполнить поиск, нажмите "Kutools" > "Текст" > "Отметить ключевые слова".

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

Если вы хотите выполнять поиск с учетом регистра, установите флажок "Учитывать регистр".

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

С помощью функции "Отметить ключевые слова" вы также можете найти часть строки в диапазоне. Например, если ячейки содержат "ball" или "jump", введите "ball, jump" в текстовое поле "Ключевые слова", затем укажите настройки и нажмите "ОК".
  >>>  

Нажмите, чтобы скачать пример файла