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
投稿猜你喜欢
除了我们之前有提到的使用快捷键，快速设置行距的方法外，还可以使用菜单来完成。当然这个方法，很多的朋友都已经知道了，但是小编还是要在这里向大家- 如果需要在打开Excel工作簿时自动运行某个宏，可以用下面的两个方法： 一、Workbook.Open 事件1.在Excel中按快捷键Alt
- 要获取某列最后一个包含数据的单元格所在行的行号，可以用下面的几个数组公式，以A列为例：=MAX(NOT(ISBLANK(A1:A65535)
- Word2010的文档中，为了强调文本中的某一部分的内容，用户通常会对这部分内容进行颜色或者是字体字号上的改变，与其它的文字形成对比，现在小
- 文章解释excel返回季度的五种公式写法，都可以返回日期对应季度。下面是excel返回季度的一个公式用法总结，如下图所示，根据A列的日期，返
- 学过函数的人应该都知道，Excel里面有一个经常会碰到的一个条件判断函数，那就是IF条件函数。这个函数在实际运用中有非常高效的操作。今天我们
- 我们平时在制作和排版表格的时候，有时会出现某些地方不需要或某些表格的位置不对，这时可能会认为得删除掉或重新绘制表格，其实没必要，你可以考虑用
- 在Excel中的幂函数公式为POWER(Number, power)。参数Number表示基数，可为任意实数。参数POWER表示基数乘幂运算
- 在win10专业版系统当中有自带的照片应用程序，我们通常用它来查看照片，但是最近有用户反映，win10系统照片应用程序打开很缓慢，无法打开，
- 说到word排版，我们常常就会想到论文的排版，制作目录，不同页眉页脚如何设置。今天我们来说两个不一样的word排版技巧，让你的word文档更
- WPS作为日常办公的软件，功能越来越强大。表格的超级模板更为大家所爱，但关键的宏功能却是收费的。所以今天给大家带来这款插件，完美解决问题，让
- 如何取消新闻热点弹出窗口；如果你想永久关闭它，右击我们电脑底部的任务栏，然后在弹出的对话框中选择“启动任务管理器”，那么任务管理器窗口就会弹
- TYPE函数可以返回数值的类型。当某一个函数的计算结果取决于特定单元格中数值的类型时，可使用函数TYPE。语法是：TYPE(value)Va
- 最近有用户问电脑桌面的图标桌面任意摆放。如果想要实现随意摆放图标，我们可以用鼠标右击桌面，在弹出的选项中进行相关的选择便可以实现这种操作。w
- win10局域网无法访问怎么处理呢？很多用户对此还不是很清楚，小编这里就给大家带来有关win10局域网无法访问怎么处理的回答，希望能够对大家
- Excel中经常需要用到自动填充功能，自动填充功能具体该如何使用呢?下面是由小编分享的excel中使用自动填充功能的方法，以供大家阅读和学习
- Excel中如何为2003Excel文档加密处理呢?下面是由小编分享的excel2003文档加密的教程，以供大家阅读和学习。excel200
- wps诗歌文字怎么排成扇形!WPS中的图形可以设计为插入形状。文本可以插入到垂直文本框中，并设置为无边框和无填充颜色。每列文本一个文本框。您
- 随着PDF格式文件使用的范围越来越广，我们有时候就需要将其他格式的文件转换成PDF文件使用，例如将WORD、excel、ppt 等格式的转换
- 在Excel中，“--”是一种负负运算，可以将文本的格式变成数值的格式，在Excel中有很多妙用，今天给大家分享3种使用例子。1、批量去除0
