统计列出共有几种品牌

zhangcheng6688

学习一下字典，打扰了
Sub test()
arr = [a1].CurrentRegion
Set d = CreateObject("scripting.dictionary")
For i = 2 To UBound(arr)
   d(arr(i, 1)) = d(arr(i, 1)) + 1
Next
lastr = Cells(Rows.Count, "e").End(xlUp).Row
brr = Range("e1:f" & lastr)
For i = 2 To UBound(brr)
   brr(i, 2) = d(brr(i, 1))
Next
[e1].Resize(UBound(brr), 2) = brr
End Sub

windshc

=LET(x,A2:A18,a,UNIQUE(x),b,COUNTIF(x,a),HSTACK(a,b))

你是那块小饼干

COUNTIF(A2:A18,E2:E4)

朱志强

hxj119 发表于 2024-6-23 18:21
没有GROUPBY函数，参考公式：
=LET(x,A2:A18,a,UNIQUE(x),b,COUNTIF(x,a),HSTACK(a,b))

终于学会了let的进阶用法,我一直想着两种或者多列不一样的函数怎么写在一个格子里面,以前一直在if上没有实现,HSTACK这样用法牛

nayomi

谢谢楼主分享

我的城市你来过

=REDUCE($A$1:$B$1,UNIQUE($A$2:$A$18),LAMBDA(x,y,VSTACK(x,HSTACK(y,SUM(FILTER(ROW($A$2:$A$18)^0,$A$2:$A$18=y))))))

mykitami

=COUNTIF(A:A,E2:E4)

丢丢表格

朱志强 发表于 2024-6-24 16:41
终于学会了let的进阶用法,我一直想着两种或者多列不一样的函数怎么写在一个格子里面,以前一直在if上没有 ...

不用HSTACK也行

=UNIQUE(IF({1,0},A2:A18,COUNTIF(A2:A18,A2:A18)))