终于完成了，谢谢褚老师

辛玛

经过11天，终于完成了对EH侠圣褚老师帮我写的代码的扩展，让各班各科的成绩分析更加细微化。我仿褚老师写的这数组虽然能完成需要的数据，但真的还存在漏洞，望老师们指正。

chxw68

自力更生，丰衣足食！

辛玛

chxw68 发表于 2021-6-10 21:45
自力更生，丰衣足食！

谢谢老师的鼓励！

辛玛

chxw68 发表于 2021-6-10 21:45
自力更生，丰衣足食！

For i = 1 To r Step 4
      c = .Cells(i, .Columns.Count).End(xlToLeft).column
      arr = .Cells(i, 1).Resize(4, c)
褚老师，端午节安康！
在这行代码中，
如果这个行数不是固定的，也就是说，有的是4，有的是7，有的是9等。这个数组该怎么写，请您赐教.

longming3

For i = 1 To r Step 4，4为变量，根据变量来重新指定噻，也就是能得到变量，然后指定给Step噻

辛玛

longming3 发表于 2021-6-14 13:44
For i = 1 To r Step 4，4为变量，根据变量来重新指定噻，也就是能得到变量，然后指定给Step噻

谢谢点拨。可这个变量又没规律，还是不明白怎么指定。

messagexiaoxi

辛玛 发表于 2021-6-14 13:49
谢谢点拨。可这个变量又没规律，还是不明白怎么指定。

这个4、7、9的得来肯定是有依据的，根据依据找到规律就好办了。