excel按筛选颜色的VBA代码
时间:2023-01-13 09:45:18
在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代码
0
投稿
猜你喜欢
pdf深色背景打印的时候怎么才能变成白色?
2023-08-02 11:38:34
如何保护Word文档不能非法修改
2022-10-18 13:04:36
Word页面设置在哪?怎么在Word中进行页面设置?
2022-05-07 11:37:59
excel表格数据怎么横竖转换
2023-03-12 14:22:22
word 字体放大的三种方法:快捷键、艺术字、手动输入字体大小数字完成字体放大
2022-03-26 19:42:54
word重复标题行怎么设置?
2023-06-08 10:01:50
word 如何表达上下居中的分数?word如何输入分数
2022-10-17 08:20:36
Word公式怎么输入
2023-03-01 00:12:46
WPS软件中excel设置日期到期提醒怎么操作?
2023-07-24 12:33:32
Win10系统更新后Office打不开怎么修复?
2023-12-14 01:10:34
word如何双面打印
2023-12-07 11:56:00
Win10电脑一装系统就出现电脑蓝屏怎么办?
2023-11-22 16:41:03
在Word2007中如何使用"悬停时显示文档工具"提示功能
2023-12-13 03:22:55
word打不开了应如何解决
2023-02-24 10:39:16
Win10开机速度慢怎么办?Win10开机速度慢的解决办法
2023-11-10 17:16:27
BI报表中如何将网格式报表打印成其它样式(图解) 网格式报表打印成其它样式的方法
2023-08-02 16:24:06
Word2016如何打开计算器
2023-11-14 18:41:32
word2013怎么设置打印方向为横向
2023-11-30 08:00:05
word文档如何查看修改痕迹?
2022-04-25 04:21:10
图文结合的word文档,怎样给标题自动编号
2022-08-10 17:19:25