提取B列不重复，公式错在哪？

838225419

袁勇 发表于 2023-12-13 11:46
=INDEX(B:B,SMALL(IF(MATCH(B$5:B2000&"*",B$5:B2000&"*",)=ROW($1:1996),ROW($5:2000),4^8),ROW(A1)))&" ...

谢谢，再次感谢老师！！！

jackabs

沈默00 发表于 2023-12-13 13:32
可以使用新版函数了
=UNIQUE(FILTER(B:B,B:B""))

优秀，还没发现这个函数呢

沈默00

jackabs 发表于 2023-12-14 09:04
优秀，还没发现这个函数呢

这个是新版的函数，
你用的是2003版的，我都快忘记怎么用了

zhangcheng6688

借个楼，用这个例子学习一下数组，打扰了
Sub test()
r = Cells(Rows.Count, "b").End(xlUp).Row
arr = Range("b5:b" & r)
ReDim brr(1 To UBound(arr), 1 To 1)
For i = 1 To UBound(arr)
   If arr(i, 1) <> "" Then
      m = m + 1
      brr(m, 1) = arr(i, 1)
      For j = i + 1 To UBound(arr)
         If arr(j, 1) <> "" Then
            If arr(j, 1) = arr(i, 1) Then
               arr(j, 1) = vbNullString
            End If
         End If
      Next
    End If
Next
[g5].Resize(m, 1) = brr
End Sub

zhangcheng6688

学习一下字典，打扰
Sub test()
lastr = Cells(Rows.Count, "b").End(xlUp).Row
arr = Range("b5:b" & lastr)
Set d = CreateObject("scripting.dictionary")
For i = 1 To UBound(arr)
   If arr(i, 1) <> "" Then
      d(arr(i, 1)) = ""
   End If
Next
[g5].Resize(d.Count, 1) = Application.WorksheetFunction.Transpose(d.keys)
End Sub