摘要： 筛选功能是电子表格软件很重要的一块内容，无论是ET还是Excel，都具有强大的筛选功能，但比较遗憾的是，ET和Excel都没有“筛选唯一值”功能。下面给大家分享WP... 筛选功能是电子表格软件很重要的一块内容，无论是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对象
WPS表格办公— CORREL 函数的用法
咱们在 操纵WPS表格和Excel表格 停止 一样平常办公时，都 晓得表格中 包罗 各类函数， 而且 咱们在 进修 事情方面 城市用到统计方面的函数， 此中CORREL函数 便是用于统计方面，那 怎样在EXCEL表格中 利用该函数呢？CORREL函数是 前往两组数值的 相干系数的函数，那 详细要怎 操纵的那？ 如今让
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
复制代码
示例图如下:
WPS演示办公—如何导入WPS文字与表格的文件
咱们在 操纵WPS演示文稿 停止 一样平常办公时， 常常 需求在幻灯片 傍边 增加在Word文档与Excel表格的 各类数据， 偶然候 咱们会 停止复制粘贴， 可是粘贴 过去的 结果 常常不尽人意， 那末该 怎样导入数据呢， 明天 咱们就来教 各人， 怎样在WPS演示文稿 傍边导入Word文档与Excel表格的 各类数
