excel按筛选颜色的VBA代码
发布时间：2023-01-13 09:45:18
标签：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
0
投稿猜你喜欢
- 在使用Word编排文档的时候，我们经常会遇到各式各样难题，有时候，因为一个非常简单的小问题，总是耽误下班时间。因此，今天在这里小编就给大家分
word设置纸张大小怎么设置？通过对纸张大小的自定义，可以很方便用户后续进行批量打印操作，也可以统一整篇文档规范，那么在word中，自定义纸- 1.打开设置了保护的工作簿。2.单击“工具”菜单，执行“保护”命令，在菜单中选择“ 撤消工作簿保护”；3.在弹出的密码栏中输入原来设置的密码
- 常用软件运行库都有哪些？在了解这个问题之前，我们首先需要了解运行库是什么，这点在下文中有两种理解可供参考，然后就是我们经常见到VC++系列、
- Win10系统可以说是目前市面上，许多用户都会选择使用的一款操作系统。但是不少用户在使用的时候都会遇到一些问题，这不，前不久就有小伙伴问我，
- 组策略是微软操作系统的一项服务功能，它可以控制电脑的用户账户，最近有用户反映win7电脑提示此程序被组策略阻止的情况，那么win7电脑提示此
- wps是一款功能非常强大的office软件，我们在使用的时候需要用到随意画这个功能，大家知道这个功能如何使用吗？一起来看看吧wps文档中我们
- IE浏览器一直是我们最常用的浏览器，但是Windows系统在大力推广edge浏览器的时候强制原来的IE用户使用IE浏览器的时候直接跳转到ed
- 在win10系统中如果遇到了PLSQLDeveloper无法连接Oracle11g的现象，该怎么解决呢？针对这一问题在本文中小编将给大家分享
- Photoshop是一款我们常用的图片处理软件，在使用Photoshop时，为了方便操作可能会使用到修改快捷键功能，如何在Mac版的Phot
- epic games是一款很不错的游戏平台很多的玩家再打开的时候都出现了突然登不进去的情况，下面就给你们带来了epic games突然登不进
- 在我们的win7系统上拥有着蓝牙设备连接的功能，随着时代的发展一些无线的耳机设备逐渐成为了主流数码产品，不过还是有很多小伙伴不知道自己的蓝牙
- 面对大量数据，你将如何开展数据分析？您会选择什么样的数据分析方法呢？您是否看着数据感到迷茫，无所适从。认真读完这篇文章，或许你将有所收获。把
- nba2k20是一款非常热血好玩的游戏，很多玩家都在steam平台上第一时间下载了，但是很多都遇到了问题，今天就给你们带来了steam2k2
- Word文档是一款主要用于编辑和处理文本内容的软件。在Word文档中编辑和处理文字时我们通常都会设置一定的样式效果，比如设置一些高亮显示，一
- win10如何对拷系统?比如有多台配置相同的电脑，当我们将一台电脑安装好了win10系统，且将系统设置进行了修改，并且下载安装了需要使用的一
- 笔记本电脑按电源按钮后，无法关机是怎么回事？近日有用户笔记本死机了，但是按下电源按钮却不能关机，只是关闭屏幕而已，该如何解决呢？下面就给大家
- 当用户卸载电脑的软件时，其实还有很多该软件的信息注册表留在系统中，导致系统变慢变卡，那么这些注册表该如何删除呢？下面就一起来看看具体的操作方
- Opera浏览器是一款挪威公司出产的跨平台浏览器，性能速度都十分强悍，受到了很多用户的好反响，今天就和大家一起来看看这款浏览器是如何截图的吧
- 使用过WPS的朋友们都知道，该办公软件有一个好处就是，内置了多个模板可以供用户使用。wps演示和文字一样，有内置模板，下面小编就带大家来看看
