这个循环怎么改

陈酿

数 组里rcount的个数，现在这个循环，数完第一元素数之后到第二元素的时候不数原来第一个元素了，现在想改成不管是这组里第几个元素，都从该组第一个元素开始数

rcount = 0
        
    For k = St To Si
        For i = mstarting(k) To mstarting(k) + ma(k) - 1
            For j = 2 To n - Descolumncount
                For l = mstarting(k) To mstarting(k) + ma(k) - 1
                    If Cells(i, j) = Cells(l, j) Then
                        rcount = rcount + 1
                    End If
                Next l
                Cells(i, j) = rcount / ma(k)
                rcount = 0
            Next j
        Next i
    Next k

陈酿

我把某列数据分组之后，求组里相同元素的个数，然后赋值给rcount。比如说这一列 1 2 2 3 1 6 这个数据，1元算应该读出两个，而程序运行到第二个1的时候就不从第一个1开始数了。

陈酿

我把某列数据分组之后，求组里相同元素的个数，然后赋值给rcount。比如说这一列 1 2 2 3 1 6 这个数据，1应该读出两个，而程序运行到第二个1的时候就不从第一个1开始数了。

陈酿

自己顶一下。。。求高手

憨吃迷糊睡

迷糊帮着UP一下，有时间时准备看看

陈酿

憨吃迷糊睡 发表于 2011-12-7 22:24
迷糊帮着UP一下，有时间时准备看看

十分感谢，比较着急。。。

sundf

假如你能把各个变量名解释一下就可以方便大家读了。st，si什么的太乱了。
又没有前后程序比较累

陈酿

sundf 发表于 2011-12-7 23:04
假如你能把各个变量名解释一下就可以方便大家读了。st，si什么的太乱了。
又没有前后程序比较累 ...

明天补上

陈酿

陈酿 发表于 2011-12-6 23:07
我把某列数据分组之后，求组里相同元素的个数，然后赋值给rcount。比如说这一列 1 2 2 3 1 6 这个数据，1应 ...

1. rcount = 0
   
2. 
   
3. For k = St To Si
   
4. For i = mstarting(k) To mstarting(k) + ma(k) - 1
   
5. For j = 2 To n - Descolumncount
   
6. For l = mstarting(k) To mstarting(k) + ma(k) - 1
   
7. If Cells(i, j) = Cells(l, j) Then
   
8. rcount = rcount + 1
   
9. End If
   
10. Next l
    
11. Cells(i, j) = rcount / ma(k)
    
12. rcount = 0
    
13. Next j
    
14. Next i
    
15. Next k
    
16. 我把n列数据根据Descolumncount开始到n的数据大小的分组。（对程序没有太大影响）
    
17. 第一组是St,最后一组是Si
    
18. mstarting(k)是每一组的第一个元素，是每组的数据的个数。
    
19. 比如说某一列的一组数据如下
    
20. 2 3 2 1 1 3 1 1 3
    
21. 那么 这组数据各自的rcount 应该是
    
22. 2 3 2 4 4 3 4 4 3
    
23. 因为这组数据中2的个数是2 3的个数是3 1的个数是4。
    
24. 现在的程序写成了
    
25. 2 3 1 4 3 2 2 1 1
    
26. 第一次数晚第一次之后，就不再数了。比如说3 ，总个三个，应该是三个3，但是求第6个数据
    
27. 的rcount的时候，就不数前边数过的了，变成2。现在想改这个程序。

复制代码

snowman1101

你自己带入2组数 就知道了
还是没看懂你的解释