EXCEL VBA统计相同字符个数

从多到少排序原数据一个区域结果6个区域... 从多到少排序
原数据一个区域
结果6个区域
展开
 我来答
绿衣人敲门
推荐于2016-05-15 · 知道合伙人软件行家
绿衣人敲门
知道合伙人软件行家
采纳数:18765 获赞数:63776
毕业于西北大学计算机网络技术专业,现在在西安电力学院进行网络推广维护工作!

向TA提问 私信TA
展开全部
  1. 打开文档,获取数据。

  2. 在B2单元格输入“=countif(”

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

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

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


庆年工坊
推荐于2016-05-05 · 知道合伙人互联网行家
庆年工坊
知道合伙人互联网行家
采纳数:4233 获赞数:8928

向TA提问 私信TA
展开全部
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
本回答被提问者和网友采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
用Excel释放你的活力
2015-07-02 · TA获得超过1279个赞
知道小有建树答主
回答量:795
采纳率:86%
帮助的人:368万
展开全部
应该是对象属性搞错了。
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
thjszxzdy
2015-07-03 · TA获得超过117个赞
知道小有建树答主
回答量:446
采纳率:60%
帮助的人:143万
展开全部
不用vba也可以实现,为什么用vba。
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
揭戈雅s2
2015-07-03 · TA获得超过514个赞
知道小有建树答主
回答量:8621
采纳率:0%
帮助的人:2321万
展开全部
excel vba搞定没 我可以做
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 2条折叠回答
收起 更多回答(3)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式