使用如下的VBA代碼，您就可以在Excel中，統(tǒng)計某個字符或某個數(shù)字，甚至是某個字符串，在某個數(shù)據(jù)區(qū)域范圍內(nèi)，所出現(xiàn)的次數(shù)，即出現(xiàn)幾次，或稱為有幾個。

　　代碼如下，是VBA宏代碼。

　　Set myb = CreateObject("scripting.dictionary"): myb("數(shù)字") = "次數(shù)"

　　Set rng = Application.InputBox("選擇要統(tǒng)計的區(qū)域:", 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("選擇結(jié)果輸出地:", 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