Excel 内 按 Alt+F11,
视图 ---代码窗口
如下代码复制进去 F5运行
Sub 次数()
Set dic = CreateObject("scripting.dictionary")
arr = ActiveSheet.UsedRange
For i = 2 To UBound(arr)
s = Split(arr(i, 3), "、")
For k = 0 To UBound(s)
dic(s(k)) = ""
Next
Next
MsgBox "共" & dic.Count & "个"
End Sub
我会把顿号变成制表符号，如所有的物品每一个词汇一行，放入SPSS做次数分析
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024