Excel by filter color VBA code

In Excel, using the simple visualization method is difficult to filter by color, so we can only use VBA code to implement it.

The following code has the function of hiding the column data of the current cell with the row of the current cell in addition to the first row, the header column of the data.

If you have other requirements, please modify the code yourself.

Sub Filtercolor ()

Dim Userow, AC

Userow = Cells.specialcells (xlCellTypeLastCell). Row

If activecell.row > Userow Then

MsgBox "Out of range, please select data or interesting cells!", vbexclamation, "error"

Else

AC = Activecell.column

Cells.EntireRow.Hidden = False

For i = 2 to Userow

If Cells (i, AC). Interior.ColorIndex <> ActiveCell.Interior.ColorIndex Then

Cells (i, AC). Entirerow.hidden = True

End If

Next

End If

End Sub