WPS表格添加篩選唯一值功能的使用方法

　　這里之所以說是模擬而不是實(shí)現(xiàn)，是因?yàn)椋琕BA是無法操作ET或Excel的篩選器的，所以我們只好退而求其次，用隱藏行的方法來模擬“篩選唯一值”。

　　這里給出VBA代碼(最多可以處理32767行數(shù)據(jù))：

　　(這里給的是核心代碼，不包括下圖中創(chuàng)建按鈕的代碼)

　　Public Sub 篩選唯一值() '最多可以處理32767行數(shù)據(jù)

　　Application.ScreenUpdating = False '關(guān)閉屏幕更新,加快速度

　　Dim cell As Range, i As Long, rng As Range, only As New Collection

　　If TypeName(Selection) <> "Range" Then Exit Sub ' 選擇對(duì)象不是單元格則退出

　　If Selection.Columns.Count > 1 Then

　　MsgBox "只能選擇一列數(shù)據(jù)!", 0 + 64, "天遠(yuǎn)篩選唯一值"

　　Exit Sub

　　End If

　　Set rng = Intersect(ActiveSheet.UsedRange, Selection)

　　On Error Resume Next

　　For j = 1 To rng.Count '遍歷選區(qū)所有單元格

　　If rng(j) <> "" Then

　　only.Add rng(j).Value, CStr(rng(j).Value) '逐個(gè)導(dǎo)入 Collection對(duì)象

　　End If

　　If Err <> 0 Then '如果有錯(cuò)誤(重復(fù))

　　i = i + 1 '累加變量

　　'如果變量i為1則將 Selection(j)賦值給rng，否則將rng與 Selection(j)合并為一個(gè)Range對(duì)象

　　If i = 1 Then

　　Set cell = Selection(j)

　　Else

　　Set cell = Union(cell, rng(j))

　　End If

　　Err.Clear '清除錯(cuò)誤

　　End If

　　Next j

　　cell.EntireRow.Hidden = True '隱藏所有符合條件的行

　　Application.ScreenUpdating = True

　　End Sub

　　復(fù)制代碼

　　示例圖如下: