EXCEL VBA:按筛选颜色的VBA代码

2013-10-02 16:44 阅读 713 次 评论关闭

在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

版权声明:本文著作权归原作者所有,欢迎分享本文,谢谢支持!
转载请注明:EXCEL VBA:按筛选颜色的VBA代码 | 猎微网
分类:Excel VBA 标签:, , , ,

评论已关闭!