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

wcg129

有一列字符串需要分析排序统计，原始数据如图在sheet1


将每一行的字符串拆分，依顺序每一个字符放在sheet2一个单元格内


统计sheet2中的每一列的字符频率进行统计，统计后放在sheet3

再对sheet3的结果每一列数字进行比较，保留最大值（如果有并列值一起保留）在sheet4

对sheet4最大值进行保留，去掉数值，保留在sheet5第一行，如果并列值，并列值依序保留第二行

对保留的最大值进行合并在sheet6的第一个单元格内


这个思路是这样子的，主要是想要sheet3（统计1）  sheet4（统计2）  和sheet6（合并）这三个值，过程不重要，希望大神能帮我指导一下，谢谢！
数据拆分排序统计.rar (9.62 KB, 下载次数: 10)

2019-3-23 10:11 上传

点击文件名下载附件
数据拆分排序统计

不知道为什么

说了一大圈，不觉得累啊，差点看不下去，

如图：

不知道为什么

wcg129

不知道为什么 发表于 2019-3-23 12:56
说了一大圈，不觉得累啊，差点看不下去，

如图：

谢谢大神，小白怕把问题描述不清楚，所以比较啰嗦。
大神能否把代码黏贴一下，非常感谢！

不知道为什么

wcg129 发表于 2019-3-23 13:55
谢谢大神，小白怕把问题描述不清楚，所以比较啰嗦。
大神能否把代码黏贴一下，非常感谢！

供参考
[code]Option Base 1
Sub tj()
   

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.             d(k & Mid(arr(i, 1), k, 1)) = d(k & Mid(arr(i, 1), k, 1)) + 1
   
7.         Next
   
8.     Next
   
9.     For k = 1 To Len(arr(1, 1))
   
10.         ar = Filter(d.keys, k)
    
11.         d("") = 0
    
12.         For Each a In ar
    
13.             If d(a) > d("") Then s = a: d("") = d(a)
    
14.         Next
    
15.         st = st & Right(s, 1)
    
16.     Next
    
17.     [c1] = st
    
18. End Sub

复制代码

wcg129

micch 发表于 2019-3-23 14:09
确实，看说明够累的，很难描述吗？就是每个位置出现频率最高的字母嘛
如果单元格内字符长度都一致

谢谢。
出现频率最高的字母只是一个，其实还想要每个字母出现频率的值

micch

wcg129 发表于 2019-3-23 14:24
谢谢。
出现频率最高的字母只是一个，其实还想要每个字母出现频率的值

嗯，我就是想确认是不是这个意思。所有字符串，每个位置出现最多的字符，最后合并为一个字符串？？
你说的要频率值，是单独显示，还是随字母显示在一起？同一个位置出现频率相同且最大，并列显示的意思是怎么个显示效果？还有就是字符串的长度是一致的，还是可能不一致？

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.             d(k & Mid(arr(i, 1), k, 1)) = d(k & Mid(arr(i, 1), k, 1)) + 1
   
7.         Next
   
8.     Next
   
9.     For k = 1 To Len(arr(1, 1))
   
10.         ar = Filter(d.keys, k)
    
11.         n = 0
    
12.         For Each a In ar
    
13.             If d(a) > n Then mx = d(a): n = d(a)
    
14.         Next
    
15.         For Each a In ar
    
16.             If d(a) = mx Then st = st & Right(a, 1)
    
17.         Next
    
18.         mst = mst & mx
    
19.     Next
    
20.     [c1] = st
    
21.     [c2] = mst
    
22. End Sub

复制代码

wcg129

micch 发表于 2019-3-23 14:29
嗯，我就是想确认是不是这个意思。所有字符串，每个位置出现最多的字符，最后合并为一个字符串？？
你说 ...

所有字符串长度一样的，要的一个是字符频率最高的字符串，另一个是每个单字符出现的频率，数值能和字母一起显示就可以了。
这段代码出来的结果好像不对。