How to select a specific cell color [closed]

Use "Conditional Formatting -> New Rule". There, set the formatting ranges and conditions.

For cases where you need to quickly view the data for different values ​​of the desired.

The formatting range is column A. Single cell for the criterion - B2

Select column A , tab Home-Conditional-Formatting-Create_Rule-Use_ Formula

=ПОИСК($B$2;A1) 

Set the desired format (fill).

Some characters in Excel are reserved for service. For example, if the search text starts at = , + , @ , the text will be perceived as a formula, a function. In order to avoid misunderstandings, the B2 cell format should be set as text.

 ' ----------------- 

Conditional formatting loads the file, if there are many conditions in the UV, it is possible to slow down when data changes. You can make it easier with VBA (macro).

Easy to use.

Alt + F11 - log in to the VBA editor

Insert-Module tab - creating a common module.

Expand the module and place the code shown below.

On the sheet, you can create a button (for example, Insert-Shapes ), which assign the launch of the macro ( RMB-Assign_Macros ).

 ' заливка ячеек столбца А, содержащих искомый фрагмент (ячейкa В2) Sub SearchOfText() Dim ArrData() Dim rRng As Range Dim sStr As String Dim lRws As Long, i As Long With ActiveSheet lRws = .Cells(.Rows.Count, "A").End(xlUp).Row ' последняя заполненная ячейка If lRws < 2 Then Exit Sub ' данных нет (первая строка - шапка таблицы) ArrData = Range("A1:A" & lRws).Value ' значения столбца А в массив sStr = .Range("B2").Value ' искомый фрагмент в переменную For i = 2 To lRws ' циклом по массиву If ArrData(i, 1) Like "*" & sStr & "*" Then ' искомый фрагмент в тексте есть If rRng Is Nothing Then Set rRng = .Cells(i, 1) ' формируем диапазон Else Set rRng = Union(rRng, .Cells(i, 1)) 'пополняем диапазон End If End If Next i Application.ScreenUpdating = False ' отключаем обновление экрана .Range("A2:A" & lRws).Interior.Pattern = xlNone ' удаление предыдущей заливки If Not rRng Is Nothing Then rRng.Interior.ColorIndex = 6 ' красим диапазон Application.ScreenUpdating = True ' включаем обновление экрана End With Set rRng = Nothing ' освобождаем память End Sub