求助vba高手如何用字典方式计算更快速

aails6543

第01位加30 提取连续累计最后1

aails6543

于箱长 发表于 2022-12-8 11:27
成立是什么意思

@于箱长 成立，是指， 在所在段 (36行数据里的后18个数值) 后18数值里有，就算成立；没有此数值则不成立

笨鸟飞不高

aails6543 发表于 2022-12-8 18:02
第01位加30 提取连续累计最后1

你的序号5041行 13+30=43（累加为1），序号 5077行 17+30=47 （累加为2），这不是2了吗？不明白。。。

笨鸟飞不高

aails6543 发表于 2022-12-8 17:59
检查了一下，第02位加0 提取最后的累计统计数，不是4呀。  好像数据不对。

你的序号16670行 39+0=39 '累计1
16706行 52+0=52 '累计2
16742行 23+0=23 '累计3
16778行 22+0=22 '累计4

aails6543

笨鸟飞不高 发表于 2022-12-9 10:17
你的序号16670行 39+0=39 '累计1
16706行 52+0=52 '累计2
16742行 23+0=23 '累计3

师傅你13、14楼的算法是正确的，只是区间范围不对？。  我要的是完整所有列 所有段数据
比如 第01位，是指序号行1，37，73，109，145...到最后一个序号行25165行 15 + 0 =15
而第02位，同样是指序号行2，38，74，110，146...到最后一个序号行25166行 19 + 0 =19  [c25193:c25210] 里没有19这个数值， 所以
第02位加0 提取连续累计最后0
..
(最后一个序号行25166行 19 + 30 =49  [c25193:c25210] 里没有49这个数值)所以:第02位加30 提取连续累计最后0

笨鸟飞不高

aails6543 发表于 2022-12-9 12:54
师傅你13、14楼的算法是正确的，只是区间范围不对？。  我要的是完整所有列 所有段数据
比如 第01位，是 ...

不是区间的问题，目前代码取的是最大值，改为取最后一个值就可以了

aails6543

笨鸟飞不高 发表于 2022-12-9 13:26
不是区间的问题，目前代码取的是最大值，改为取最后一个值就可以了

我中午仔细检查了一下。 生成的数据有误？比如 第11位 +11
正确的数据开始应是
0
3
0
0
1
0
0
1
0
0
2
...

如果没有，不成立，就是结果为0值，要提取出来的。
师傅能改一下实现吗.  我发现是bug， 是取大数的这个时(大于0的)，漏了一项0值

笨鸟飞不高

aails6543 发表于 2022-12-10 12:27
我中午仔细检查了一下。 生成的数据有误？比如 第11位 +11
正确的数据开始应是
0

这样？？

清风竹-

请看附件。

aails6543

清风竹- 发表于 2022-12-10 13:59
请看附件。

谢谢清风竹师傅，辛苦了。但好像 有漏统计了数据， 计算出来的数据有遗漏了首项值 0
如 第11位 +11 正确的数据开始应是
0
3
0
0
1
0
0
1
0
0
2 ....
如 第11位 +27 正确的数据开始应是
0
1
0
0
0
1
0
0
1
0
0...