僅使用公式在Excel中獲取唯一值您知道Excel中用公式“計(jì)算”唯一值列表的方法嗎？例如：范圍包含值。"red", "blue", "red", "green", "blue", "black"我希望結(jié)果是"red, "blue", "green", "black"+最后還有兩個空白細(xì)胞。我已經(jīng)找到了一種使用小型或大型組合索引獲得計(jì)算排序列表的方法，但我也希望使用這種計(jì)算排序，而不使用VBA。
3 回答
一只斗牛犬
TA貢獻(xiàn)1784條經(jīng)驗(yàn) 獲得超2個贊
Colors
=IFERROR(INDEX(Colors,MATCH(SUM(COUNTIF(C$1:C1,Colors)),COUNTIF(Colors,"<"&Colors),0)),"")
Ctrl+Shift+Enter
COUNTIF(Colors,"<"&Colors)返回一個數(shù)組(#1)，其值的計(jì)數(shù)比數(shù)據(jù){4；1；4；3；1；0}中的每個項(xiàng)都小(黑色=0項(xiàng)，藍(lán)色=1項(xiàng)，紅色=4項(xiàng))。這可以轉(zhuǎn)換為 排序值
每個項(xiàng)目。 COUNTIF(C$1:C...,Colors)為已排序結(jié)果中的每個數(shù)據(jù)項(xiàng)返回帶有1的數(shù)組(#2)。在C2中，它返回{0；0；0；0；0；0；0}和C3{0；0；0；0；0；1}，因?yàn)椤癇lack”在排序中是第一個，在數(shù)據(jù)中是最后一個。在C4{0；1；0；0；1；1}中，它表示“黑色”，所有出現(xiàn)的“藍(lán)色”都已經(jīng)存在。 這個 SUM返回 K-
排序值，通過計(jì)數(shù)已經(jīng)出現(xiàn)的所有較小的值(數(shù)組#2的和)。 MATCH查找k-th排序值的第一個索引(數(shù)組#1中的索引)。 這個 IFERROR只是為了隱藏 #N/A當(dāng)排序的唯一列表完成時，底部單元格中出現(xiàn)錯誤。
=SUM(IF(FREQUENCY(COUNTIF(Colors,"<"&Colors),COUNTIF(Colors,"<"&Colors)),1))
精慕HU
TA貢獻(xiàn)1845條經(jīng)驗(yàn) 獲得超8個贊
解
壓榨 ALT +F11 點(diǎn)擊到 Module在……里面 Insert.粘貼代碼。 如果Excel說您的文件格式不是宏友好的，請將其保存為 Excel Macro-Enabled在……里面 Save As.
源代碼
Function listUnique(rng As Range) As Variant Dim row As Range Dim elements() As String Dim elementSize As Integer Dim newElement As Boolean Dim i As Integer Dim distance As Integer Dim result As String elementSize = 0 newElement = True For Each row In rng.Rows If row.Value <> "" Then newElement = True For i = 1 To elementSize Step 1 If elements(i - 1) = row.Value Then newElement = False End If Next i If newElement Then elementSize = elementSize + 1 ReDim Preserve elements(elementSize - 1) elements(elementSize - 1) = row.Value End If End If Next distance = Range(Application.Caller.Address).row - rng.row If distance < elementSize Then result = elements(distance) listUnique = result Else listUnique = "" End If End Function
使用
=listUnique(range)rangeA$1:A$28H$8:H$30.
條件
這個 range一定是列。 調(diào)用函數(shù)的第一個單元格必須位于 range開始吧。
例
正規(guī)案件
輸入數(shù)據(jù)和調(diào)用函數(shù)。 種下它。 哇哦。
空細(xì)胞箱
添加回答
舉報(bào)
0/150
提交
取消