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】 WPS官网下载教程 04-19
- 【excel】 excel背景图片怎么设置 04-13
- 【excel】 表格中的斜线怎么弄 03-09
- 【excel】 怎样把pdf转换成excel文档格式 03-03
- 【excel】 excel表格数字怎么变正常 10-12
- 【excel】 Excel单元格怎么添加下拉选项 09-09
- 【excel】 excel怎么自定义下拉菜单 09-09
- 【excel】 excel怎么设置数据有效性 09-08
- 【excel】 excel怎么调换行列位置 09-02
- 【excel】 excel怎么自动编号排序 08-31
本周热门
-
1
在用EXCEL计算标准偏差的时候该用STDEV STDEVA STDEVP哪一种? 2016/07/22 -
2
excel求和出现#value是什么原因? 2016/08/18
-
3
Excel常用函数公式大全 2013/08/05
-
4
Excel中将15位身份证号转换为18位 2014/07/08
-
5
EXCEL表中#N/A是什么意思?#N/A是什么? 2015/05/26
-
6
关于打开EXCEL,出现"隐含模块中的编译错误"的问题 2016/06/27
-
7
Excel做的表格怎么转化成XML格式 2016/07/22
-
8
excel表格中隔行选取的三种方法 2016/12/03
本月热门
-
1
在用EXCEL计算标准偏差的时候该用STDEV STDEVA STDEVP哪一种? 2016/07/22
-
2
Excel表格中每行数据下面插入一行的方法 2016/12/20
-
3
Excel常用函数公式大全 2013/08/05
-
4
excel求和出现#value是什么原因? 2016/08/18
-
5
Excel打印时每页都有表头设置方法 2015/05/13
-
6
excel表格的水平(分类)轴标签灰色不可编辑是什么原因? 2016/07/24
-
7
Excel中将15位身份证号转换为18位 2014/07/08
-
8
Excel中怎么在散点图中插入直线 2016/08/08
-
9
Excel表格中如何对比两列数字的大小? 2016/12/28
-
10
excel表格中隔行选取的三种方法 2016/12/03