分列A列，按空格分列，然后统计关键词出现的频数

宏初学者

大神们，求助，分列A列，按空格分列，然后统计关键词出现的频数用vba（由于数据庞大，用手动和公式太卡了）

明天会更好zj

这个问题太简单了

明天会更好zj

cnmlgb9998

1. =DROP(LET(_a,DROP(TOCOL(REDUCE("",A2:A16,LAMBDA(x,y,VSTACK(x,TEXTSPLIT(y," ",,TRUE)))),3,FALSE),1),_b,UNIQUE(_a),REDUCE("",_b,LAMBDA(m,n,VSTACK(m,HSTACK(n,SUM(IF(_a=n,1,0))))))),1)

复制代码

ykcbf1100

统计这个用字典最方便

ykcbf1100

参与一下。。。

1. Sub ykcbf()   '//2024.5.5
   
2.     Dim arr, brr, d
   
3.     Application.ScreenUpdating = False
   
4.     Set d = CreateObject("scripting.dictionary")
   
5.     arr = Sheet1.Range("a1").CurrentRegion
   
6.     ReDim brr(1 To 10000, 1 To 2)
   
7.     For i = 2 To UBound(arr)
   
8.         st = arr(i, 1)
   
9.         b = Split(st)
   
10.         For x = 0 To UBound(b)
    
11.             s = b(x)
    
12.             If Not d.Exists(s) Then
    
13.                 M = M + 1
    
14.                 d(s) = M
    
15.                 brr(M, 1) = b(x)
    
16.                 brr(M, 2) = 1
    
17.             Else
    
18.                 r = d(s)
    
19.                 brr(r, 2) = brr(r, 2) + 1
    
20.             End If
    
21.         Next
    
22.     Next
    
23.     With Sheets("Sheet2")
    
24.         .UsedRange.Offset(1) = ""
    
25.         .Range("a2").Resize(M, 2) = brr
    
26.     End With
    
27.     Set d = Nothing
    
28.     Application.ScreenUpdating = True
    
29.     MsgBox "OK！"
    
30. End Sub
    

复制代码

gwjkkkkk

请参考附件。。。

无关岁月

1. =LET(_a,TEXTSPLIT(TEXTJOIN(" ",,A2:A16),," "),GROUPBY(_a,_a,COUNTA,,0))

复制代码

宏初学者

ykcbf1100 发表于 2024-5-5 20:19
参与一下。。。

感谢感谢，但是sheet1里面A列分列后面，没有内容，是要加上什么输出吗

宏初学者

gwjkkkkk 发表于 2024-5-5 20:19
请参考附件。。。

感谢大佬，完全看不懂，哪个是代表指定分列的“空格”，如果空格改为其他符号是怎么弄