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