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
投稿猜你喜欢
网络已经成为我们日常生活中必不可少的基础元素之一，因此当网络出现故障时，我们希望第一时间解决这些故障，而登录路由器的Web管理界面正是解决问- win10越用越卡？内存不足还是怎么了，磁盘其实也是关键，会优化当然也就不会发生这种情况，下面小编为大家分享Win10磁盘占用、卡顿、性能不
- 360浏览器怎么直播视频？如今看直播是很多网民的娱乐项目，看直播的也软件特别多，现在浏览器都要分一杯羹，360浏览器就可以直播看视频。下面就
- excel是我们常用的办公软件，有时默认排序顺序不理想，想重新自定义，那么excel2010怎么修改排序规则？下面小编带来excel自定义排
- 怎么将台式电脑分辨率调成最佳状态？最近有用户反映这个问题，不知道怎么设置，有些用户想要调节分辨率但是不知道怎么操作，那么应该怎么设置呢？针对
- 6 月 9 日消息 外媒 报道，在 WWDC21 全球开发者大会之前有很多关于新的 MacBook Pro 的传言，但很遗憾苹果并没有发布。
- 前面我们提到微软已经为Chromium Edge 浏览器设计新图标，同时该公司还预告将在明年1月15日发布正式版。不过在测试版方面微软已经开
- Win10威胁服务已经停止立即重启怎么解决？相信有不少win10系统用户都遇到过这个问题吧，win10系统自带的windows defend
- 首先启动Excel 2016并新建一个工作表，然后在任意单元格输入工作表说明，再由上而下，根据实际需要的顺序输入要创建的工作表名称，最后选中
- 相信大家都知道，Windows操作系统中的文件资源管理器可以帮助我们更方便的管理电脑中的文件。不过，最近却有Win10用户反映不知道怎么打开
- Win10专业版系统用户在工作学习中遇到DNS出错打不开网页应该怎么办呢？打开网页超慢这些都是DNS设置错误或者没有设置造成的，Win10专
- 微软今日宣布，面向 Dev 频道推送 KB5016322 更新，用户安装后版本号升级为为 Build 25151.1010，所有 Windo
- 许多用户不知道Windows其实一直都有一个系统还原功能，这个功能可以帮助用户在使用电脑崩溃的时候将电脑恢复到上一次正常启动的状态。而许多小
- Win10注册表恢复初始怎么操作？其实方法是非常简单的哦，今天小编在这里给大家分享Win10恢复默认注册表的方法，保证大家在最短时间之内学会
- 为了更好地保护计算机上私人信息的安全性，许多用户为自己的计算机设置了启动/登录密码。只有使用密码才能打开电脑。虽然它可以更好地保护计算机的隐
- 对于经常与台湾或者香港地区有业务往来的公司来说，编写文件或者发邮件时就必须使用繁体字了。而想要文字繁简转换在Excel2007中就可以轻松做
- 很多用户都会对电脑桌面进行自定义设置，让其更具个性化，但是一段时间过后看腻了，就想将桌面变回原来的样子，这要如何操作呢？下面我们就来看看具体
- 抖音小店是抖音所推出的商城软件，可以让抖音的用户在带货上面更加的轻松，店铺的管理更加的方便。近期有用户在问抖音小店网页版登录入口在哪，下面小
- Excel中经常需要使用到设置表格旋转的技巧，表格具体该如何设置旋转呢?下面是小编带来的关于excel设置表格旋转的方法，希望阅读过后对你有
- 正常情况下启动系统的过程中都会有开机提示音，这也是系统自带的功能，但不少使用Win11系统的小伙伴想要关闭却不知如何操作，那么遇到这种情况应
