Excel中用VBA函数进行颜色筛选的操作方法

excel中用VBA函数进行颜色筛选的操作方法

在excel中，使用可视化的简单操作方法，是很难根据颜色来筛选的，因此，我们只能使用VBA代码来实现。今天，小编就教大家在Excel中用VBA函数进行颜色筛选的操作技巧。

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函数进行颜色筛选的操作方法

版权声明：本文内容由网络用户投稿，版权归原作者所有，本站不拥有其著作权，亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容，请联系我们jiasou666@gmail.com 处理，核实后本网站将在24小时内删除侵权内容。