excel按筛选颜色的VBA代码

2021年05月01日 19:59 发布来源：Excel学习网

在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学习网 [ http://www.excelxx.com/]
需要保留本文链接地址：http://www.excelxx.com/jiqiao/13267.html

分享到：

上一篇：5.1excel选中行变色完整代码和动画效果下一篇：Excel常见错误代码处理方法