求助：用什么方法统计出不重复的部门？

lichunsohu · 发表于 2023-3-30 14:41

求助：用什么方法统计出不重复的部门？

mountain119 · 发表于 2023-3-30 14:48

E2=UNIQUE(A2:A602)
需要365或者升级完后的2021版本

lichunsohu · 发表于 2023-3-30 15:02

mountain119 发表于 2023-3-30 14:48
E2=UNIQUE(A2:A602)
需要365或者升级完后的2021版本

这个对excel版本有要求吗？测试了，还是有重复的出现

huaichuan1 · 发表于 2023-3-30 15:05

秃头发师 · 发表于 2023-3-30 15:07

WPS，会搞溢出的话可以这样：=UNIQUE(A2:A602)
不会的话就这样：=IFERROR(INDEX(UNIQUE($A$2:$A$602),ROW(1:1)),"") 下拉

袁勇 · 发表于 2023-3-30 15:19

=LOOKUP(1,0/FREQUENCY(0,COUNTIF(E$2:E2,A$2:A602)),A$2:A602)&""

高个子 · 发表于 2023-3-30 15:21

=IFERROR(INDEX(UNIQUE($A$2:$A$602),ROW(a1)),"")

复制代码

我的城市你来过 · 发表于 2023-3-30 15:24

=IFERROR(INDEX($A$2:$A$602,MATCH(0,COUNTIFS(E$2:E2,$A$2:$A$602),)),"")

tiger1976 · 发表于 2023-3-30 15:40

Sub lll()

Dim arr, drr
Dim i As Integer
Dim dic As Object

Set dic = CreateObject("scripting.dictionary")
i = Cells(Rows.Count, 1).End(xlUp).Row

arr = Range("a2:a" & i)

For k = 1 To UBound(arr)
dic.Item(arr(k, 1)) = ""
Next

drr = dic.Keys
Range("e3").Resize(UBound(drr) + 1, 1) = Application.WorksheetFunction.Transpose(drr)
End Sub

lichunsohu · 发表于 2023-3-30 15:48

huaichuan1 发表于 2023-3-30 15:05

最好好用

		自动登录	找回密码
密码			免费注册

[求助] 求助：用什么方法统计出不重复的部门？