WPS表格中唯一值功能怎么用
发布时间：2022-07-28 10:54:16
筛选功能是电子表格软件很重要的一块内容，无论是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
投稿猜你喜欢
Word2010书法字帖提供了田字格、田回格、九宫格、米字格、口字格等网格样式，用户可以根据自己的需要设置字帖的网格样式。在“书法”功能区中- 通常情况下我们要将长日期转化为短日期可以直接修改数字格式。比如我们要将下图工作表A3单元格中的长日期“2021年3月7日”显示为B3单元格中
- winhex是一款专门用来应对各种日常紧急情况工具，可以用来检查和修复用户的各种文件，或是恢复删除文件以及或是硬盘损失造成的数据丢失，用户还
- 很多用户近日反映表示，常常会因为有事而需要长时间离开电脑，因此希望能够在win10系统中设置自动关闭显示器，好节省电源，这该如何操作呢?接下
- 在excel求和算是最普遍的一种用途，在日常办公中也经常需要使用到。今天，小编给大家介绍四种excel求和的方法，希望对你有所帮助!top1
- PPT怎么添加gif动画？PPT是很多用户常用到的演示软件，近期有用户想在PPT中添加gif动画，那么应该如何操作呢？方法很简单，还不清楚具
- 原因如下：两行的文字对齐方式有问题。某一行是复制过来的使用了源格式。其中一行末尾存在公式，不可分割的日期等。文字间距设置有问题。处理如下：同
- 魔盒插件怀旧服不显示卖价怎么办？我们在玩耍魔兽世界的时候，精彩会拾取一些装备物品到背包里。但是背包满了以后，鼠标移动到物品上，无法看到其价格
- 在使用电脑时，如果没有获取管理员权限，很多操作可能会无法进行，那新系统win11要如何获取管理员权限呢？针对这个问题，小编下面就给大家整理了
- 如何使用ps给街拍人物制作一种创意拍立得效果照片？给大家介绍如何使用ps给街拍人物制作一种创意拍立得效果照片，一起来看看吧。1.将背景人物图
- Win10管理员账户Administrator默认关闭和隐藏，就是防止这个高权限账户被“滥用”影响系统安全。不过我们有时候也需要开启该账户，
- 怎么查找图驴工作云组？图驴具有无限容量的网盘空间、创建项目组、聊天通讯等功能，是一款即时沟通软件。要怎么查找图驴工作云组呢，下面就给大家分享
- 我们来学习如何快速设计透视表的布局和样式，也就是如何改变透视表的脸，这是透视表使用过程中最常用的技巧之一。1， 调整报表布局透视表为我们提供
- 对于键盘控们来说，几乎想要用键盘来完成一切操作，鼠标的指指点点也太Low了。那么除了Windows10系统自带的快捷键和某些众所周知的程序快
- 在EDraw Max亿图图示中，我们可绘制的图表非常多，有流程图、地图、思维导图、网络图、组织架构图以及基本绘图等，总而言之，所涉及的行业专
- 格式工厂是一款十分优秀的文件格式转换软件，可以帮助用户们满足不同的文件格式转换需求，因此使用的用户非常多，而其中有部分用户在转换MP3格式的
- Excel数据核对表怎么美化呢？很多用户对此还不是很清楚，小编这里就给大家带来有关Excel数据核对表怎么美化的回答，希望能够帮助大家了解。
- 我们新买的电脑中总是存在着许多预装软件，很多时候这些预装软件都不是我们所需要的，但是我们又很难将这些软件进行卸载删除。今天小编就教大家如何卸
- 很多用户在电脑使用了一段时间之后即使电脑没有出现问题，也会重装系统，让电脑运行的更加流畅一点，电脑也使用的更加方便一点。但是有的用户把自己的
- 看到题目，你也许会感到很诧异。平时的表格排序，我们总是针对表格中的数据进行排序，难道图表也能进行排序?实际上，为了更好地用图表展示数据，我们
