请问如何列出多个工作表中的姓名并统计出现次数？

shchint

hugeinfo 发表于 2024-8-14 14:07
=LET(a,TEXTSPLIT(TEXTJOIN(" ",,TOCOL(Sheet1:Sheet3!B3:B500,3)),," "),DROP(REDUCE("",UNIQUE(a),LAMBDA ...

谢谢，是我想要的效果，厉害了

shchint

浮生若梦~~~ 发表于 2024-8-14 14:57
=LET(a,TOCOL(Sheet1:Sheet3!B3:B100,1),REDUCE({"序号","姓名","出现次数"},UNIQUE(TEXTSPLIT(CONCAT(a&"  ...

谢谢，太强大了，你这个是效果最好的，还带有自动编号。但是如果不想要表头的话可以吗？

shchint

喂你吃粑粑 发表于 2024-8-14 15:24

谢谢，这公式我测试有点问题，有些地方会显示#VALUE!工作表和数据行不是固定的

wp231957

shchint 发表于 2024-8-14 15:42
谢谢，这公式我测试有点问题，有些地方会显示#VALUE!工作表和数据行不是固定的

这些回复我基本都看了，大同小异，你会一种就可以了

浮生若梦~~~

shchint 发表于 2024-8-14 15:40
谢谢，太强大了，你这个是效果最好的，还带有自动编号。但是如果不想要表头的话可以吗？

=LET(a,TOCOL(Sheet1:Sheet3!B3:B100,1),DROP(REDUCE(0,UNIQUE(TEXTSPLIT(CONCAT(a&" "),," ",1)),LAMBDA(x,y,VSTACK(x,HSTACK(ROWS(x),y,COUNT(FIND(y,a)))))),1))

浮生若梦~~~

=LET(a,TOCOL(Sheet1:Sheet3!B3:B100,1),b,UNIQUE(TEXTSPLIT(CONCAT(a&" "),," ",1)),HSTACK(SEQUENCE(ROWS(b)),b,MAP(b,LAMBDA(x,COUNT(FIND(x,a))))))

leepoison

=LET(a,UNIQUE(TEXTSPLIT(CONCAT(TOCOL(VSTACK(Sheet1:Sheet3!B3:B100),1)&" "),," ",TRUE)),HSTACK(a,MAP(a,LAMBDA(x,COLUMNS(REGEXP(CONCAT(Sheet1:Sheet3!B3:B100),x))))))

zhangcheng6688

学习一下字典，打扰了
Sub test()
Set d = CreateObject("scripting.dictionary")
For Each sht In Sheets
   If sht.Name <> "汇总表" Then
      arr = sht.[a2].CurrentRegion
      For i = 2 To UBound(arr)
         xm = Split(arr(i, 2))
         For j = 0 To UBound(xm)
            d(xm(j)) = d(xm(j)) + 1
         Next
      Next
   End If
Next
brr = Sheets("汇总表").[a2].CurrentRegion
For i = 3 To UBound(brr)
   brr(i, 3) = d(brr(i, 2))
Next
Sheets("汇总表").[a2].CurrentRegion = brr
End Sub

你是那块小饼干

1. =SUM(N(ISNUMBER(FIND(B3,VSTACK(Sheet1!$B$3:$B$7,Sheet2!$B$3:$B$9,Sheet3!$B$3:$B$6)))))

复制代码