excel - 从 Excel 中的范围中提取唯一值

Question

下午好，

我想从 Excel 中的范围中提取唯一值。此值将在此范围内的列之间移动。


在 N/A 值之间，我得到了正确的地址，我想将其填充到下面指出的单元格中。

为此，我尝试了 UNIQUE 函数:

https://exceljet.net/excel-functions/excel-unique-function

  =unique(U3:U6)

这给了我#NAME 值。

我还尝试了这里的其他代码:

https://www.listendata.com/2013/05/excel-3-ways-to-extract-unique-values.html

exceljet.net/formula/extract-unique-items-from-a-list

trumpexcel.com/unique-items-from-a-list-in-excel/

带 INDEX:MATCH 功能

   =IFERROR(INDEX($U$3:$U$6,MATCH(0,COUNTIF($U$3:UE,$U$3:$U$6),0)),"")

我也一无所获。

我也尝试过使用 IF 语句:

     =IF(U3:U6,"N/A+N/A+N/A","")

但我不知道如何提取具有其他值的单元格，而不是公式中所述。

函数 INDEX:MATCH 与 COUNTIF 的组合也不起作用

  =INDEX(List,MATCH(0,COUNTIF(U3:$U$6,List)+(COUNTIF(List,List)<>1),0))

如何使我的独特值(value)在下面的单元格中可见？如何排除此范围内的所有无效记录？

Answer 1

使用 UNIQUE() 等工作表函数的困难是便携性。只有最新版本的 Excel 支持它们。另一种选择是使用 VBA 用户定义函数。甚至古生代版本的 Excel 也支持 VBA(您需要做的就是确保启用了宏)

这是返回唯一值的典型 UDF:

Public Function unikue(rng As Range)
    Dim arr, c As Collection, r As Range
    Dim nCall As Long, nColl As Long
    Dim i As Long
    Set c = New Collection

    nCall = Application.Caller.Count

    On Error Resume Next
        For Each r In rng
            c.Add r.Text, CStr(r.Text)
        Next r
    On Error GoTo 0
    nColl = c.Count


    If nCall > nColl Then
        ReDim arr(1 To nCall, 1 To 1)
        For i = 1 To nCall
            arr(i, 1) = ""
        Next i
    Else
        ReDim arr(1 To nColl, 1 To 1)
    End If

    For i = 1 To nColl
        arr(i, 1) = c.Item(i)
    Next i

    unikue = arr
End Function

例如:



用户定义函数 (UDF) 非常容易 安装并使用:

ALT-F11 调出 VBE 窗口

ALT-Ⅰ
ALT-M 打开一个新模块

粘贴这些东西并关闭 VBE 窗口

如果您保存工作簿，UDF 将与它一起保存。
如果您使用的是 2003 年以后的 Excel 版本，则必须保存
文件为 .xlsm 而不是 .xlsx

至 删除 UDF:

弹出VBE窗口如上

清除代码

关闭 VBE 窗口

至 使用 工作表中的这个 UDF:

高亮某个列中的单元格 block

点击公式栏

类型:=UNIKUE(U3:U6)

用 Cntrl-Shft-ENTER 结束，而不仅仅是 ENTER 键

要了解有关宏的更多信息，请参阅:

http://www.mvps.org/dmcritchie/excel/getstarted.htm

和

http://msdn.microsoft.com/en-us/library/ee814735(v=office.14).aspx

有关 UDF 的详细信息，请参阅:

http://www.cpearson.com/excel/WritingFunctionsInVBA.aspx

必须启用宏才能使其正常工作!