WPS表格怎样添加筛选唯一值功能
发布时间：2022-05-15 21:57:49
筛选功能是电子表格软件很重要的一块内容，无论是ET还是Excel，都具有强大的筛选功能，但比较遗憾的是，ET和Excel都没有“筛选唯一值”功能。接下来由小编为大家推荐WPS表格添加筛选唯一值功能的技巧，希望对你有所帮助!
WPS表格添加筛选唯一值功能的教程：
这里之所以说是模拟而不是实现，是因为，VBA是无法操作ET或Excel的筛选器的，所以我们只好退而求其次，用隐藏行的方法来模拟“筛选唯一值”。
这里给出VBA代码(最多可以处理32767行数据)：
(这里给的是核心代码，不包括下图中创建按钮的代码)
Public Sub 筛选唯一值() '最多可以处理32767行数据
Application.ScreenUpdating = False '关闭屏幕更新,加快速度
Dim cell As Range, i As Long, rng As Range, only As New Collection
If TypeName(Selection) <> "Range" Then Exit Sub ' 选择对象不是单元格则退出
If Selection.Columns.Count > 1 Then
MsgBox "只能选择一列数据!", 0 + 64, "天远筛选唯一值"
Exit Sub
End If
Set rng = Intersect(ActiveSheet.UsedRange, Selection)
On Error Resume Next
For j = 1 To rng.Count '遍历选区所有单元格
If rng(j) <> "" Then
only.Add rng(j).Value, CStr(rng(j).Value) '逐个导入 Collection对象
End If
If Err <> 0 Then '如果有错误(重复)
i = i + 1 '累加变量
'如果变量i为1则将 Selection(j)赋值给rng，否则将rng与 Selection(j)合并为一个Range对象
If i = 1 Then
Set cell = Selection(j)
Else
Set cell = Union(cell, rng(j))
End If
Err.Clear '清除错误
End If
Next j
cell.EntireRow.Hidden = True '隐藏所有符合条件的行
Application.ScreenUpdating = True
End Sub
复制代码
示例图如下:
0
投稿猜你喜欢
- 现如今，电脑的使用越来越普及，许多人上班或者生活中都需要用到word文档办公软件，但其中一些小知识，比如在word中如何在任意页添加及删除页
在实际工作中，我们经常会看到这样的联合公文头，你知道是怎么做的么？本期Word小编与大家分享下相关的制作方法。第一种：双行合一选中文本，点击- 一些用户没有给宽带安装路由器，给电脑连接无线网络时就需要用到自带的热点功能，但是有用户发现启用热点功能后网络却出现显示未建立以太网，导致热点
- 近来有小伙伴反应win10镜像文件该怎么下载，因为市面上镜像文件多得是，要找正规文件下载，这该怎么办？今日小编带来了一些下载镜像的链接，详细
- Excel中怎样批量删除单位？下面小编来教大家。01、首先，我们打开我们的电脑，然后我们打开我们电脑上面的一个excel文档，之后我们选中这
- excel中数据较多且某一数据重复出现的情况下，工作中经常碰到需要统计一定区域内重复数据出现的次数，该如何进行呢?下面就跟小编一起看看吧。e
- 问题情境如下样表：有“店长组”和“组员”两个组别，要求保持数据顺序不变，分别对“店长组”和“组员”两个组内的成绩排序。公式实现在E2单元格输
- 打印机需要连接电脑后才能正常使用打印等功能，如果电脑没有连接打印机的话那就无法打印文件那些了。现在很多地方都是连接共享打印机了，那么win1
- wps的行距怎么调？在word中，我们经常会遇到这样的情况，两段文字，字体，大小，格式都一样，也都设置的单倍行距，但在文档显示中，明显能看见
- 有时在编写VBA程序时，会发现没有与Excel函数相对应的VBA指令，在此情况下，只能想办法通过引用Excel函数来达到目地，今天，小编就教
- 在使用Excel的时候会希望把某些单元格锁定，以防他人篡改或误删数据。要如何进行设置呢。下面让小编为你带来excel表格保护单元格格式的方法
- 在word中调整文字行距，相信大多数的朋友都会，那么在excel单元格内调整文字行距，如何来操作?今天，小编就教大家在Excel表格中单元格
- 症状大括号和其他字符出现在文本或页眉和页脚中。 图1原因域代码 (域:指示 Microsoft Word 在文档中
- 我们日常工作中，有时候为了获取图片中的文字，很多人都会选择一个字一个字的录入到Word中，费时费力不说，还总容易出错，下面就来教你用这4种方
- Win专业版自带的安全中心，有人觉得挺好用，因为隔绝了很大的系统危险，但也带来了不便，因为很多第三方软件都被隔开了。那如果需要关闭安全中心呢
- Excel中经常需要用到公式求平方和，平方和具体该如何用公式计算呢?接下来是小编为大家带来的excel利用公式求平方和的教程，供大家参考。e
- 多条件if公式在Excel中是比较常用的功能之一，如果有不懂的朋友却需要用到这个功能的朋友不妨学习一番吧!接下来是小编为大家带来的excel
- WPS文本里面怎么调字与字的间距一、wps文字调整字间距：1、选中你要调整的文字段落，然后在单击鼠标右键会弹出对话框，如图所示：2、在对话框
- 1、打开一个WPS的表格。2、将我们需要的数据编辑好。3、因为我们要把表格存储为Excel的格式，所以我们点击WPS的按钮，选择另存为。4、
- wps演示设置全程背景音乐的方法打开WPS演示菜单栏点击“插入”->“声音”->“文件中的声音”，插入准备好的声音文件(MP3或
