|
本帖最后由 403300768 于 2014-10-15 14:33 编辑
急求:A列单词中,出现最多次的字母组合类型及次数?
- 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
复制代码
|
|