新人贴 想求助有关统计问题

echoTiramisu

统计第一行 单元格内的数据的出现的个数   如B1中 sdfa   单元格中的各个文本分开统计  S  1次   d  1次  f  1次   a  1次   接着统计  C1中的 sfgwd    S   在B1中是一次  C2中一次  就是  两次     第一行统计完了 显示结果  统计了多少个单 元格    a 多少个  b多少个  c多少个....    然后来个升序排列    请高手帮忙 谢谢

lss001

假如数据在第一行
从第二行开始存放结果
则代码如下:

Sub tjwb()
x = Cells(1, 1).CurrentRegion.Columns.Count
Set d = CreateObject("Scripting.Dictionary")
    ar = Range(Cells(1, 1), Cells(1, x))
For i = 1 To x: t = t & ar(1, i): Next
    ReDim br(1 To Len(t), 1 To 1)
For j = 1 To Len(t): br(j, 1) = Mid(t, j, 1): Next
For k = 1 To UBound(br): d(br(k, 1)) = "":  Next
    ReDim dr(1 To UBound(d.keys) + 1, 1 To 1)
For g = 0 To UBound(d.keys): s = 0
    For h = 1 To Len(t)
        If d.keys()(g) = br(h, 1) Then s = s + 1
    Next
    dr(g + 1, 1) = s
Next
    Range("a2:b" & Len(t)) = ""
    [a2].Resize(UBound(d.keys) + 1, 1) = Application.Transpose(d.keys)
    [b2].Resize(UBound(dr), 1) = dr
    Range("a2:b" & Len(t)).Sort Key1:=Range("b2"), Order1:=1 '1升2降
End Sub

echoTiramisu

lss001 发表于 2017-6-19 11:25
假如数据在第一行
从第二行开始存放结果
则代码如下:

谢谢 测试了 可以满足我的要求 非常感谢 ！