Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 2610|回复: 9

[已解决]火火急求:A列单词中,出现最多次的字母组合类型及次数?

[复制链接]
发表于 2014-10-14 16:30 | 显示全部楼层 |阅读模式
本帖最后由 403300768 于 2014-10-15 14:33 编辑

急求:A列单词中,出现最多次的字母组合类型及次数?
最佳答案
2014-10-14 21:45
  1. Dim arr, zf$, i%, d(2 To 5)
  2. Sub Macro1()
  3. Dim w(1 To 26), a(2 To 5), b(2 To 5)
  4. For j = 2 To 5
  5.     Set d(j) = CreateObject("scripting.dictionary")
  6. Next
  7. arr = Range("a1").CurrentRegion
  8. For j = 1 To UBound(arr)
  9.     zm = arr(j, 1)
  10.     For k = 1 To Len(zm)
  11.         zm2 = Mid(zm, k, 1)
  12.         w(Asc(zm2) - 96) = zm2
  13.     Next
  14.     zf = Join(w, "")
  15.     Erase w
  16.     For i = 2 To 5
  17.         aa "", 0
  18.     Next
  19. Next
  20. For j = 5 To 2 Step -1
  21.     s = s + 1
  22.     a(j) = d(j).keys
  23.     b(j) = d(j).items
  24.     x = Application.Max(b(j))
  25.     For k = 0 To d(j).Count - 1
  26.         If x = b(j)(k) Then MsgBox a(j)(k) & "," & x
  27.     Next
  28. Next
  29. End Sub
  30. Sub aa(p$, t%)
  31. If t = i Then
  32.     d(i)(p) = d(i)(p) + 1
  33. Else
  34.     For j = 1 To 5
  35.         z = Mid(zf, j, 1)
  36.         If InStr(p, z) = 0 And z > Right(p, 1) Then aa p & z, t + 1
  37.     Next
  38. End If
  39. End Sub
复制代码

Book1.zip

5.17 KB, 下载次数: 18

求助

excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
 楼主| 发表于 2014-10-14 16:34 | 显示全部楼层
回复

使用道具 举报

 楼主| 发表于 2014-10-14 16:48 | 显示全部楼层
403300768 发表于 2014-10-14 16:34
请高手出手相助!!!

高手请出手!!!
回复

使用道具 举报

发表于 2014-10-14 21:45 | 显示全部楼层    本楼为最佳答案   
  1. Dim arr, zf$, i%, d(2 To 5)
  2. Sub Macro1()
  3. Dim w(1 To 26), a(2 To 5), b(2 To 5)
  4. For j = 2 To 5
  5.     Set d(j) = CreateObject("scripting.dictionary")
  6. Next
  7. arr = Range("a1").CurrentRegion
  8. For j = 1 To UBound(arr)
  9.     zm = arr(j, 1)
  10.     For k = 1 To Len(zm)
  11.         zm2 = Mid(zm, k, 1)
  12.         w(Asc(zm2) - 96) = zm2
  13.     Next
  14.     zf = Join(w, "")
  15.     Erase w
  16.     For i = 2 To 5
  17.         aa "", 0
  18.     Next
  19. Next
  20. For j = 5 To 2 Step -1
  21.     s = s + 1
  22.     a(j) = d(j).keys
  23.     b(j) = d(j).items
  24.     x = Application.Max(b(j))
  25.     For k = 0 To d(j).Count - 1
  26.         If x = b(j)(k) Then MsgBox a(j)(k) & "," & x
  27.     Next
  28. Next
  29. End Sub
  30. Sub aa(p$, t%)
  31. If t = i Then
  32.     d(i)(p) = d(i)(p) + 1
  33. Else
  34.     For j = 1 To 5
  35.         z = Mid(zf, j, 1)
  36.         If InStr(p, z) = 0 And z > Right(p, 1) Then aa p & z, t + 1
  37.     Next
  38. End If
  39. End Sub
复制代码

评分

参与人数 1 +1 收起 理由
403300768 + 1 很给力!谢谢!只是我不懂代码意思,不知怎么.

查看全部评分

回复

使用道具 举报

 楼主| 发表于 2014-10-14 21:56 | 显示全部楼层
dsmch 发表于 2014-10-14 21:45

请教高手,我从未用过vba,我应该怎么操作?谢谢!!!
回复

使用道具 举报

发表于 2014-10-14 22:01 | 显示全部楼层
………………

急求:A列单词中,出现最多次的字母组合类型及次数?.zip

11.04 KB, 下载次数: 14

回复

使用道具 举报

 楼主| 发表于 2014-10-14 22:09 | 显示全部楼层
dsmch 发表于 2014-10-14 21:45

执行时说“缺乏标识符”,这怎么解决呢?

Sub 组合(Dim arr, zf$, i%, d(2 To 5)
Sub Macro1()
Dim w(1 To 26), a(2 To 5), b(2 To 5)
For j = 2 To 5
    Set d(j) = CreateObject("scripting.dictionary")
Next
arr = Range("a1").CurrentRegion
For j = 1 To UBound(arr)
    zm = arr(j, 1)
    For k = 1 To Len(zm)
        zm2 = Mid(zm, k, 1)
        w(Asc(zm2) - 96) = zm2
    Next
    zf = Join(w, "")
    Erase w
    For i = 2 To 5
        aa "", 0
    Next
Next
For j = 5 To 2 Step -1
    s = s + 1
    a(j) = d(j).keys
    b(j) = d(j).items
    x = Application.Max(b(j))
    For k = 0 To d(j).Count - 1
        If x = b(j)(k) Then MsgBox a(j)(k) & "," & x
    Next
Next
End Sub
Sub aa(p$, t%)
If t = i Then
    d(i)(p) = d(i)(p) + 1
Else
    For j = 1 To 5
        Z = Mid(zf, j, 1)
        If InStr(p, Z) = 0 And Z > Right(p, 1) Then aa p & Z, t + 1
    Next
End If
End Sub)

回复

使用道具 举报

 楼主| 发表于 2014-10-14 22:52 | 显示全部楼层
dsmch 发表于 2014-10-14 22:01
………………

谢谢高手!如我想把这个代码原理应用其他行列计算,但我又不懂代码意思,能请帮忙翻译说明一下吗?谢谢!!!
回复

使用道具 举报

发表于 2014-10-14 23:23 | 显示全部楼层
403300768 发表于 2014-10-14 22:52
谢谢高手!如我想把这个代码原理应用其他行列计算,但我又不懂代码意思,能请帮忙翻译说明一下吗?谢谢! ...

楼主这个好!我想把它用到彩票组合分析上去,该怎么搞?
回复

使用道具 举报

 楼主| 发表于 2014-10-14 23:31 | 显示全部楼层
香川群子 发表于 2014-10-14 23:23
楼主这个好!我想把它用到彩票组合分析上去,该怎么搞?

请教高手  你能帮忙翻译说明一下吗?谢谢!!
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 18:53 , Processed in 0.392754 second(s), 16 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表