在excel中，很难用可视化的简单操作方法按颜色进行筛选，只能用VBA代码来实现。
以下代码的功能是：除首行外，将当前单元格所在列数据与当前单元格不同颜色的行隐藏起来，数据首行为标题列。
如果你有其它的需求，请自行修改代码。
Sub FilterColor()
Dim UseRow, AC
UseRow = Cells.SpecialCells(xlCellTypeLastCell).Row
If ActiveCell.Row > UseRow Then
MsgBox “超出范围，请选择有数据或有意思的单元格!”, vbExclamation, “错误”
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
版权声明：本文内容由互联网用户自发贡献，该文观点仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容， 请发送邮件至 86345@qq.com 举报，一经查实，本站将立刻删除。
