Как скрыть строки в Excel на основе цвета ячейки?
На листе Excel у меня есть список ячеек, выделенных множеством разных цветов. Сейчас мне нужно быстро и легко скрыть все строки, окрашенные в светло-голубой цвет, как показано на следующем снимке экрана. Как это можно сделать в Excel?
Скрытие строк на основе цвета ячейки с помощью кода VBA
Скрытие строк на основе цвета ячейки с помощью Kutools для Excel
Скрытие строк на основе цвета ячейки с помощью кода VBA
Чтобы скрыть строки на основе определённого цвета фона, воспользуйтесь приведённым ниже кодом VBA. Выполните следующие действия:
1. Удерживая нажатыми клавиши ALT + F11, откройте окно Microsoft Visual Basic для приложений.
2. Нажмите Вставка > Модуль и вставьте следующий код в окно Модуля.
Код VBA: Скрытие строк на основе цвета ячейки:
Sub Hidebycolor()
'Updateby Extendoffice
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
Dim I As Long
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.Columns(1).AddressLocal
Else
xTxt = ActiveSheet.UsedRange.Columns(1).AddressLocal
End If
LInput:
Set xRg = Application.InputBox("Range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Areas.Count > 1 Then
MsgBox "does not support multiple selections", vbInformation, "Kutools for Excel"
GoTo LInput
End If
If xRg.Columns.Count > 1 Then
MsgBox "the selection is not more than 1 column", vbInformation, "Kutools for Excel"
GoTo LInput
End If
On Error Resume Next
Application.ScreenUpdating = False
For I = 1 To xRg.Count
If xRg.Range("A" & I).Interior.ColorIndex = 20 Then
xRg.Range("A" & I).EntireRow.Hidden = True
End If
Next 'i
Application.ScreenUpdating = True
End Sub3. Нажмите клавишу F5, чтобы запустить этот код. Появится диалоговое окно с запросом выбрать ячейки, которые вы хотите использовать (см. снимок экрана):
4. После этого нажмите кнопку ОК, и все строки со светло-голубыми ячейками будут сразу скрыты (см. снимок экрана):
Примечания:
1. В приведённом выше коде число 20внутри этого скрипта If xRg.Range(«A» & I).Interior.ColorIndex = 20Then — это код цвета, который вы можете изменить по своему усмотрению.
2. Если вы не знаете код цвета, воспользуйтесь следующим кодом, чтобы получить нужный вам код цвета:
Function GetColor(r As Range) As Integer
GetColor = r.Interior.ColorIndex
End Function
Затем введите формулу: =GetColor(A2), чтобы получить код цвета фона ячейки A2. При необходимости замените A2 на другую ячейку.
Скрытие строк на основе цвета ячейки с помощью Kutools для Excel
Если у вас установлен Kutools для Excel, с помощью его утилиты Выбрать ячейки с похожим форматом можно сначала выбрать ячейки нужного цвета, а затем сразу скрыть соответствующие строки.
После установки Kutools для Excelвыполните следующие действия:
1. Нажмите Kutools > Выделить > Выбрать ячейки с похожим форматом (см. снимок экрана):
2. В диалоговом окне Выбрать ячейки с похожим форматом выполните следующие действия:
(1.) Нажмите кнопку 
, чтобы выбрать нужный вам Диапазон данных;
(2.) Затем нажмите кнопку Выбрать формат от ячейки, чтобы выбрать ячейку нужного цвета, на основе которой будут скрываться строки;
(3.) Все атрибуты выбранной ячейки отобразятся в списке. Просто установите флажок напротив Цвет фона в разделе Заливка.
3. Нажмите кнопку ОК, и все ячейки указанного цвета будут сразу выделены. Затем выберите: Главная > Формат > Скрыть и отобразить > Скрыть строки (см. снимок экрана):
4. После этого ячейки указанного цвета будут скрыты (см. снимок экрана):
Kutools для Excel— раскройте весь потенциал Excel с помощью более чем 300 незаменимых инструментов, которые ускоряют и упрощают вашу работу, а также воспользуйтесь возможностями ИИ для более разумной обработки данных и повышения продуктивности.Получить сейчас
Демонстрация: Скрытие строк на основе цвета ячейки с помощью Kutools для Excel
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек