网站首页/办公软件列表/内容

WPS表格如何添加筛选唯一值技巧

办公软件2022-08-06阅读
电子表格(Spreadsheet),又称电子数据表,是一类模拟纸上计算表格的计算机程序。电子表格可以输入输出、显示数据,也利用公式计算一些简单的加减法。可以帮助用户制作各种复杂的表格文档,进行繁琐的数据计算,并能对输入的数据进行各种复杂统计运算后显示为可视性极佳的表格,同时它还能形象地将大量枯燥无味的数据变为多种漂亮的彩色商业图表显示出来,极大地增强了数据的可视性。

  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

  复制代码

  示例图如下:

WPS表格怎样添加筛选唯一值功能   三联
WPS表格补上筛选唯一值功能教程
WPS表格补上筛选唯一值功能教程
WPS表格补上筛选唯一值功能教程
WPS表格补上筛选唯一值功能教程

金山WPS Office专业版的安全性经过几百家权威机构及组织证明,金山wps办公套装无限扩展用户个性化定制和应用开发的需求;专为中国用户使用习惯的量身定制的wps Office软件,金山wps是中国最好的office办公软件。

相关阅读