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
投稿猜你喜欢
- 1、快速插入图片表格问：在Excel中制作好表格后，请问可以怎样快速地把它插入到Word中来使用?答：Excel表格插入Word的通常做法是
- 设置表格线宽时，要注意点击“预览”区域表格对应的上下左右中的边线按钮才算完成设置，否则，只是选择了线宽而没有点击的话等于没有设置。在Word
- Word中，文字替换为图片？有点难度吧！
Acrobat编辑器怎么去除PDF签名？pdf文件中想要删除签名，该怎么删除呢？下面我们就来看看Acrobat除去pdf签名的教程，很简单，- 我们在编辑文档的时候，经常需要在文档上插入：对号“√”、叉号“×”等特殊符号。那么，在wodr文档中，有多少种方法可以插入对号跟叉号呢?可能
- 1、首先打开一篇空白的Word文档，把鼠标切换到“页面布局”选项卡，在“稿纸”区域选择“稿纸设置”选项组。 2、在
- 有很多用户都喜欢使用Word来进行一些文档的编辑，而我们在编辑的过程中难免会遇到需要设置纸张大小的情况，但一些刚接触软件不久的用户还不清楚要
- 1、打开一篇Word文档的原始文件，用鼠标选中需要加“菱形”框的的字;例如选择“情”字，把鼠标切换到“开始：功能区，在字体区域，点击“带圈字
- 1.选中需要排序的数据，接着点击工具栏的“数据”→“排序” 2.接着我们可以对排序的顺序进行选择，可以根据升序或者
- Word中如何添加下划线？Word下划线在实际中很常用，不少伙伴使用下划线也遇到不少问题，有的下划线添加不了，下面就给大家分享Word如何添
- 最近有用户反应，在4月份更新以后遇到了开机以后键盘灯、鼠标灯、显示器电源灯都亮，也有信号输入到显示器，但屏幕是黑的，既不显示内容、也无法操作
- 平时我们自己的电脑都是自己在使用，都用户到添加电脑用户的功能。但是如果是因为某些原因需要添加一个用户，我们就手足无措了。其实很多用户都不会添
- 对word文档操作不熟练的朋友如果用到数学符号经常会头疼,其实输入数学符号很容易就可学会操作，那么在word文档中怎么输入特殊符号?下面小编
- Word是我们最常用的办公软件之一，当我们在进行Word文档传输时，总会发现传输到别的电脑上的格式与原本的格式有所不同，那么我们该如何设置固
- ● 快速清除空白行列拿下面这张表来说，表格中出现了多个没有数据的空白列，这对我们处理数据非常不利，需要将它们快速清理掉，怎么做?
- 有时候我们要在word里输入化学分子式、数学公式、方程组、微积分等公式、符号,下面小编把输入这些符号的方法汇总一下,希望能对零基础的童鞋们有
- Win10系统怎么对于explorer.exe修复？最近用户反映在电脑使用的时候，出现了explorer.exe提示，那么这个问题要怎么解决
- 针对Office 2013只能在一台PC设备上安装问题的讨论.关于Office2013无安装限制是否可行，本文的出现时相当有必要的了,感兴趣
- 用Word 2010编辑文档过程中，经常需要输入一些符号，有些符号键盘上有，可以直接输入，有些符号键盘上没有，应该怎样输入呢？其实，在Wor
- 大家写文章有时需要写目录,而这又是很繁琐的,尤其是对于写论文,目录必须要有,那么word2010自动生成目录怎么弄？下面小编就为大家介绍一下
