Excelでセルの色に基づいて行を非表示にするにはどうすればよいですか？

Excelワークシートに、さまざまな色を持つセルのリストがあります。ここで、次のスクリーンショットに示すように、すべての薄い青色の行を非表示にする必要があります。Excelでこのタスクを迅速かつ簡単に処理するにはどうすればよいですか？

VBAコードを使用してセルの色に基づいて行を非表示にする

Kutools for Excelを使用してセルの色に基づいて行を非表示にする

VBAコードを使用してセルの色に基づいて行を非表示にする

特定の背景色に基づいて行を非表示にするには、次のVBAコードが役立つかもしれません。以下の手順を行ってください：

1. ALT + F11キーを押しながら押すと、Microsoft Visual Basic for Applicationsウィンドウが開きます。

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 Sub

3. そして、 F5キーを押してこのコードを実行すると、使用したいセルを選択するように促すダイアログボックスが表示されます。スクリーンショットをご覧ください：

4. 「OK」ボタンをクリックすると、すべての薄い青色のセルが一度に非表示になります。スクリーンショットをご覧ください：

注意：

1. 上記のコードでは、スクリプト If xRg.Range("A" & I).Interior.ColorIndex = 20 Then 内の数値20は色インデックス番号です。必要に応じて変更できます。

2. 色インデックス番号がわからない場合は、次のコードを使用して知りたい色インデックスを取得してください：

Function GetColor(r As Range) As Integer
GetColor = r.Interior.ColorIndex
End Function

そして、式: =GetColor(A2) を入力して、セルA2の背景の特定の色インデックス番号を返します。必要に応じてA2を他のセルに変更できます。

Kutools for Excelを使用してセルの色に基づいて行を非表示にする

Kutools for Excelを持っている場合、その「類似の書式を持つセルを選択する」機能を使用して、まず特定の色のセルを選択し、その後一括で非表示にできます。

Kutools for Excelをインストールした後、次の手順を行ってください：

1. 「Kutools」>「選択」>「類似の書式を持つセルを選択する」をクリックします。スクリーンショットをご覧ください：

2. 「類似の書式を持つセルを選択する」ダイアログボックスで、以下の操作を行います：

(1.) クリック ボタンを押して、使用したいデータ範囲を選択します；

(2.) 次に、「セルから書式を選択」ボタンをクリックして、非表示にする行の基準となる特定の色のセルを選択します；

(3.) 特定のセルのすべての属性がリストボックスにリストアップされています。「塗りつぶし」セクションの下にある「背景色」だけをチェックしてください。

3. 「OK」ボタンをクリックすると、特定の色を持つすべてのセルが一度に選択され、次に「ホーム」>「書式」>「非表示と再表示」>「行を非表示」をクリックします。スクリーンショットをご覧ください：

4. そして、特定の色を持つ選択されたセルが非表示になります。スクリーンショットをご覧ください：

デモ： Kutools for Excelを使用してセルの色に基づいて行を非表示にする