VBA 判断式的字符统计

On_fire · 发表于 2022-12-20 12:34

VBA 判断式的字符统计

*

Sheet1是源数据,

R列的R2开始住下是要统计的字符, 行数是变量

*

代码逻辑如下,

1. 统计的顺序是上到下, 左字符到右字符, 一行再往下一行, 如此类推

2. 根据A31~A43的统计行数要求规定, 上限是R列91行,

3. 在Range(”C31:P43”)同行不同列顺序输出累计结果, 先字符再(频率)

*

模拟部分结果在Sheet1(2)及累加统计行数说明

*

绝对有难度,

恳请大神, 老师帮忙…谢谢!!!

笨鸟飞不高 · 发表于 2022-12-20 13:33

LQ.zip (20.51 KB, 下载次数: 3)

猜！

笨鸟飞不高 · 发表于 2022-12-20 13:43

LQ.zip (20.83 KB, 下载次数: 7)

On_fire · 发表于 2022-12-20 13:47

本帖最后由 On_fire 于 2022-12-20 13:49 编辑

笨鸟飞不高发表于 2022-12-20 13:33
猜！

谢谢笨鸟老师,
但是输出结果的排序不对,
C列=5, D列=6, E列=9...
请看截图, 左到右, 同列统一字符及累加频率, 如此类推才对…

笨鸟飞不高 · 发表于 2022-12-20 13:49

On_fire 发表于 2022-12-20 13:47
谢谢笨鸟老师,
但是输出结果的排序不对,
C列=5, D列=6, E列=9...

看第二个附件

On_fire · 发表于 2022-12-20 13:55

笨鸟飞不高发表于 2022-12-20 13:49
看第二个附件

厉害!
感谢笨鸟老师!

gwjkkkkk · 发表于 2022-12-20 18:56

参与一下。。。

On_fire · 发表于 2022-12-21 10:07

gwjkkkkk 发表于 2022-12-20 18:56
参与一下。。。

早上好, 谢谢老师...

On_fire · 发表于 2022-12-21 10:09

本帖最后由 On_fire 于 2022-12-21 10:19 编辑

笨鸟飞不高发表于 2022-12-20 13:49
看第二个附件

早上好,

笨鸟老师,

请您再帮忙优化一下代码?

原来输出的结果, 要求要填满31到43行

请您看看截图,

最后一行( 这行是变量 )的结果, 要复制及填满( 标黄 )

还有一个要求是,

结果的同行不同列, (频率)左到右的一对一比较, 如果右比左多, 就标蓝

笨鸟飞不高 · 发表于 2022-12-21 10:42

本帖最后由笨鸟飞不高于 2022-12-21 11:13 编辑

On_fire 发表于 2022-12-21 10:09
早上好, 笨鸟老师,请您再帮忙优化一下代码?原来输出的结果, 要求要填满31到43行请您看看截图, 最后一行( ...

LQ.zip (23.19 KB, 下载次数: 3)

更新！

		自动登录	找回密码
密码			免费注册

[求助] VBA 判断式的字符统计