VBA-统计字符串在选择区域里出现的次数

http://www.amhl.net/wenzhang/office/20110619/188213.html

使用如下的VBA代码，您就可以在Excel中，统计某个字符或某个数字，甚至是某个字符串，在某个数据区域范围内，所出现的次数，即出现几次，或称为有几个。 

 

Sub getWordCnt()

Set myb = CreateObject("scripting.dictionary"): myb("名前") = "回数"
    Set rng = Application.InputBox("選択エリア:", Type:=8)
    ActiveSheet.Cells.Interior.ColorIndex = 0
    rng.Interior.ColorIndex = 3
    For Each rng1 In rng
    myb(rng1.Value) = Application.WorksheetFunction.CountIf(rng, rng1)
    Next
    Set rng3 = Application.InputBox("結果エリア:", Type:=8)
    With rng3
    .Resize(myb.Count) = Application.Transpose(myb.keys)
    .Offset(, 1).Resize(myb.Count) = Application.Transpose(myb.items)
    End With
    Set myb = Nothing: Set rng3 = Nothing
End Sub