WPS表格中唯一值功能怎么用（wps表格怎樣提取唯一值）

篩選功能是電子表格軟件很重要的一塊內容，無論是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

復制代碼

示例圖如下:

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。