WPS表格中唯一值功能怎么用（wps怎么設(shè)置只有值）

WPS表格中唯一值功能怎么用（wps怎么設(shè)置只有值）

篩選功能是電子表格軟件很重要的一塊內(nèi)容，無論是ET還是Excel，都具有強(qiáng)大的篩選功能，但比較遺憾的是，ET和Excel都沒有“篩選唯一值”功能。下面給大家分享WPS表格添加篩選唯一值功能的使用方法。

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 ' 選擇對象不是單元格則退出

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) '逐個導(dǎo)入 Collection對象

End If

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

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

復(fù)制代碼

示例圖如下:

版權(quán)聲明：本文內(nèi)容由網(wǎng)絡(luò)用戶投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔(dān)相應(yīng)法律責(zé)任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實(shí)的內(nèi)容，請聯(lián)系我們jiasou666@gmail.com 處理，核實(shí)后本網(wǎng)站將在24小時內(nèi)刪除侵權(quán)內(nèi)容。

版權(quán)聲明：本文內(nèi)容由網(wǎng)絡(luò)用戶投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔(dān)相應(yīng)法律責(zé)任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實(shí)的內(nèi)容，請聯(lián)系我們jiasou666@gmail.com 處理，核實(shí)后本網(wǎng)站將在24小時內(nèi)刪除侵權(quán)內(nèi)容。