[已解决]如何统计单元格里单独的单词出现的次数

gallenfang · 发表于 2016-9-6 22:46

如图，如何快速统计出每个单词出现的次数，如shapewear出现的次数，abdominal出现的次数。我知道可以用countif函数，但是用counif函数，必须先把每个单词给整理出来，如何让excel自动整理出不同的单词，并且计算出每个单词出现的次数？原文件在附件里。 QQ截图20160906222907.png

例子1.rar (5.68 KB, 下载次数: 24)

苏子龙 · 发表于 2016-9-6 22:54

=COUNTIF(A:A,"*abdominal*")，countif支持通配符，要自动识别，先要处理下原始数据，如通过分列，把每个单词放到一个单元格里去，再通过函数等方法统计次数

ert111222 · 发表于 2016-9-7 08:45

分列删除重复项完了再用COUNTIF 函数

小新De和尚头 · 发表于 2016-9-7 08:53

Sub test()
Dim d As Object
Dim arr
Dim brr
Dim ends As Integer
ends = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row
Set d = CreateObject("scripting.dictionary")
arr = Sheet1.Range("A2:A" & ends)
For i = 1 To UBound(arr)
brr = Split(arr(i, 1), " ")
For j = 0 To UBound(brr)
d(brr(j)) = d(brr(j)) + 1
Next
Next
Sheet1.Range("C2").CurrentRegion.ClearContents
Sheet1.Range("C2").Resize(d.Count, 1) = Application.Transpose(d.keys)
Sheet1.Range("D2").Resize(d.Count, 1) = Application.Transpose(d.items)
End Sub

复制代码

Excel学徒123 · 发表于 2016-9-7 08:57

这个最佳答案由 Excel学徒123 给出，感谢 Excel学徒123 的回答。

单击隐藏图章

本帖最后由 Excel学徒123 于 2016-9-7 08:58 编辑

代码，一步到位

，具体看附件

Option Explicit
Sub test()
Dim objdic As Object
Dim arrSrc, arrSpl
Dim irow%, iCnt%
Set objdic = CreateObject("scripting.dictionary")
arrSrc = Range("a1").CurrentRegion.Value
For irow = 1 To UBound(arrSrc)
arrSpl = Split(arrSrc(irow, 1), " ")
For iCnt = 0 To UBound(arrSpl)
objdic(arrSpl(iCnt)) = objdic(arrSpl(iCnt)) + 1
Next
Erase arrSpl
Next
Range("b1").Resize(objdic.Count, 2) = Application.Transpose(Array(objdic.keys, objdic.items))
End Sub

复制代码

		自动登录	找回密码
密码			注册

[已解决]如何统计单元格里单独的单词出现的次数

相关帖子

评分

评分