求助数据拆分排序统计，谢谢！

micch

wcg129 发表于 2019-3-23 14:37
所有字符串长度一样的，要的一个是字符频率最高的字符串，另一个是每个单字符出现的频率，数值能和字母一 ...

干脆把所有结果给你列出来。1行字符，2行频率，3行合并，4行所有字符加频率

1. Sub test()
   
2.     Set d = CreateObject("scripting.dictionary")
   
3.     arr = [a1].CurrentRegion
   
4.     For i = 1 To UBound(arr)
   
5.         For k = 1 To Len(arr(i, 1))
   
6.             d(k & Mid(arr(i, 1), k, 1)) = d(k & Mid(arr(i, 1), k, 1)) + 1
   
7.         Next
   
8.     Next
   
9.     ReDim br(1 To Len(arr(1, 1)))
   
10.     For k = 1 To Len(arr(1, 1))
    
11.         ar = Filter(d.keys, k)
    
12.         m = m + 1
    
13.         n = 0
    
14.         For Each a In ar
    
15.             If d(a) > n Then mx = d(a): n = d(a)
    
16.             br(m) = br(m) & Right(a, 1) & d(a)
    
17.         Next
    
18.         For Each a In ar
    
19.             If d(a) = mx Then st = st & Right(a, 1): srt = srt & Right(a, 1) & mx
    
20.         Next
    
21.         mst = mst & mx
    
22.     Next
    
23.     [c1] = st
    
24.     [c2] = mst
    
25.     [c3] = srt
    
26.     [c4].Resize(, m) = br
    
27. End Sub

复制代码

micch

你应该模拟一种同一位置出现频率最高是多个字符的情况。哪里不对要指出来，否则我不知道是代码错了，还是理解错题意了。

wcg129

micch 发表于 2019-3-23 15:01
你应该模拟一种同一位置出现频率最高是多个字符的情况。哪里不对要指出来，否则我不知道是代码错了，还是理 ...

wcg129

micch 发表于 2019-3-23 15:01
你应该模拟一种同一位置出现频率最高是多个字符的情况。哪里不对要指出来，否则我不知道是代码错了，还是理 ...

副本.rar (1.31 MB, 下载次数: 2)

2019-3-24 11:29 上传

点击文件名下载附件

大侠，麻烦帮忙再看看，谢谢！

micch

统计后字符比原来长，那肯定是因为出现频率最高的字符不止一个啊，同一个位置可能结果是多个字符，合并在一起后自然就比原来长了，最终结果是什么样，你最好还是模拟清楚，否则代码改来改去的麻烦

wcg129

micch 发表于 2019-3-24 11:34
统计后字符比原来长，那肯定是因为出现频率最高的字符不止一个啊，同一个位置可能结果是多个字符，合并在一 ...

前三个字符都是adc，可是统计后成abb，有点不理解

micch

1. Sub test()
   
2.   Set d = CreateObject("scripting.dictionary")
   
3.   arr = [a1].CurrentRegion
   
4.   For i = 1 To UBound(arr)
   
5.   For k = 1 To Len(arr(i, 1))
   
6.         x = "|" & k & "|" & Mid(arr(i, 1), k, 1)
   
7.         d(x) = d(x) + 1
   
8.   Next k, i
   
9.   ReDim br(1 To Len(arr(1, 1)))
   
10.   For k = 1 To Len(arr(1, 1))
    
11.     ar = Filter(d.keys, "|" & k & "|")
    
12.     m = m + 1
    
13.     mx = 0
    
14.         For Each a In ar
    
15.             If d(a) > mx Then mx = d(a)
    
16.         Next
    
17.         For Each a In ar
    
18.             If d(a) = mx Then
    
19.               st = st & Right(a, 1)
    
20.               srt = srt & Right(a, 1) & mx
    
21.               br(m) = br(m) & Right(a, 1) & d(a)
    
22.             End If
    
23.         Next
    
24.     st = st & ";"
    
25.     mst = mst & ";" & mx
    
26.   Next
    
27.   [c1] = st
    
28.   [c2] = Mid(mst, 2)
    
29.   [c3] = srt
    
30.   [c4].Resize(, m) = br
    
31. End Sub
    

复制代码

两位数数字造成的啊，所以才说你的字符串是两位数，就不能直接合并，因为数字连在一起分不清谁是谁了，字母连在一起，如果有重复频率，也不知道对应的位置是哪一列

wcg129

micch 发表于 2019-3-24 11:42
两位数数字造成的啊，所以才说你的字符串是两位数，就不能直接合并，因为数字连在一起分不清谁是谁了，字母 ...

可以了，非常感谢！