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

ykcbf1100

宏初学者 发表于 2024-5-5 21:15
感谢感谢，但是sheet1里面A列分列后面，没有内容，是要加上什么输出吗

加上分列吧。

gwjkkkkk

宏初学者 发表于 2024-5-5 21:17
感谢大佬，完全看不懂，哪个是代表指定分列的“空格”，如果空格改为其他符号是怎么弄

split()默认分隔符就是空格，如是其他符号则split(ar(i,1),"你的分隔符")

ykcbf1100

加上分列。

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

复制代码

宏初学者

ykcbf1100 发表于 2024-5-5 21:33
加上分列。

感谢感谢，点赞

宏初学者

gwjkkkkk 发表于 2024-5-5 21:21
split()默认分隔符就是空格，如是其他符号则split(ar(i,1),"你的分隔符")

谢谢，谢谢，明白了，膜拜