EXCEL VBA统计相同字符个数

Question

从多到少排序
原数据一个区域
结果6个区域

Answer 1

打开文档，获取数据。




在B2单元格输入“=countif（”



选择A列全部数据，显示结果如右图所示，



选择要统计的单元格，选择A2单元格。结果如图所示。



此时，按下键盘上的回撤Enter键，完成统计。

Answer 2

Sub xx()
    Dim d As Object, c As Range
    Set d = CreateObject("scripting.dictionary")
    Set c = [b5:u20]
    n = c.Count
    For i = 1 To n
    k = len(c.Item(i))
    for j =1 to k
    x=mid(c.Item(i),j,1)
    d(x) = d(x) + 1
    next
    Next
    k = d.keys
    t = d.items
    ReDim a(0 To UBound(k))
    For i = 0 To UBound(a)
    a(i) = i
    Next
    For i = 1 To UBound(a)
    For j = UBound(a) To i Step -1
    If t(a(j)) > t(a(j - 1)) Then
    tmp = a(j)
    a(j) = a(j - 1)
    a(j - 1) = tmp
    End If
    Next
    Next
    Set c = [b2]
    For i = 0 To UBound(a)
    c.Offset(0, i) = k(a(i))
    c.Offset(1, i) = t(a(i)) & "次"
    Next
End Sub

本回答被提问者和网友采纳

Answer 3

应该是对象属性搞错了。

Answer 4

不用vba也可以实现，为什么用vba。

Answer 5

excel vba搞定没 我可以做