程序添加while循环遇到的问题

fbfbfb

想给程序做个while循环，改了半天还是有问题，继续求助各位大大。
P.S. 第一次用给EXCEL编程，发现博大精深啊，写的程序可能有点乱，有些还是通过录制宏获得的，尽可能的做了些注释。
感谢论坛，感谢各位大大，求助过一次数字和字母混合排序的问题，感受到的是浓浓的温暖。

fbfbfb

表单见附件。
单G番处理是完成一次的形式；
循环处理G番是希望通过循环来做多次的单G番处理。
SHEET7是原始数据。

jsxjd

fbfbfb 发表于 2014-12-9 10:39
表单见附件。
单G番处理是完成一次的形式；
循环处理G番是希望通过循环来做多次的单G番处理。

哪段程序，希望实现的功能？
鼠标点 while ,按 F1

fbfbfb

jsxjd 发表于 2014-12-9 11:48
哪段程序，希望实现的功能？
鼠标点 while ,按 F1

模块6是添加了while循环后的程序，一直有问题
模块8是没有添加while循环的程序，功能是做一次变换。
最终希望是通过while里面的参数来确定执行几次模块8，只有一个变量k。
感谢版主大大~

fbfbfb

继续求助~~

fbfbfb

模块6没有问题，加入循环后的改为模块8运行报错
Else
            Arr(n, 10) = Arr(a, 10) + Arr(a, 8)        《====类型不匹配
            Arr(n, 11) = Arr(a, 11) + Arr(a, 8)
            Arr(n, 12) = Arr(a, 12) + Arr(a, 8)
继续求助

fbfbfb

老师我终于成功啦~~~找到原因是：循环之后的数组和变量都没有清空，导致了循环就出错。大家引以为戒啊。

fbfbfb

程序贴错了。。。换个新的对比结果都正确。
菜鸟写的代码可读性较差，以后还是多学习，再次感谢各位老师。