这个循环怎么改

陈酿

snowman1101 发表于 2011-12-9 17:29
先看 你最里层的循环比如第一次循环时 K=1，你的 For l = mstarting(k) To mstarting(k) + ma(k) - 1
那么 ...

所以每循环一次就减少一个数据，您是这个意思吧。怎么改呢，您能大概说说吗

陈酿

snowman1101 发表于 2011-12-9 17:43
还有 vba的话 你为什么不用 WorksheetFunction.CountIf

vba我都不熟，在朋友的开导下能有现在这个情况，已经是我极限了，我不是计算机专业，就是论文里有一部分要用这个做数据分析，头疼死我了

snowman1101

你是不是要实现这样的效果

陈酿

snowman1101 发表于 2011-12-9 17:56
你是不是要实现这样的效果

对就是这个效果。

这个是最简单的数据源，靠最后一列分组排序的数据。Z=1 Z=2的两组数据分别都要做你做出来的效果

snowman1101

1. 
   
2. 没有试验
   
3. Sub Sample()
   
4.     Dim Rows As Long, Columns As Long,cnt As Long,m As Long,n As Long
   
5.     m = Selection.Rows.count
   
6.     n = Selection.Columns.count
   
7. For Columns = 1 To n
   
8.         For Rows = 1 To m
   
9.             cnt = WorksheetFunction.CountIf(ActiveSheet.Range(Cells(1, Columns), Cells(m, Columns)), Cells(Rows, Columns))
   
10.         这里输出cnt
    
11.         Next Rows
    
12. Next Columns
    
13. End Sub
    

复制代码

陈酿

snowman1101 发表于 2011-12-9 18:27

ctn输出的是我的rcount吧，我改改试一试

sundf

昨天回家倒头就睡了，木有看，有高手指点了啊。
仔细看了一遍，觉得你的程序不是循环的问题，而是下面一句
Cells(i, j) = rcount / ma(k)
把你要统计的东西重新付了值的关系，这样的话到第2行，第一行的数据都变了，自然不对了。
换个地方输出结果应该会好吧。。。

sundf

sundf 发表于 2011-12-9 23:24
昨天回家倒头就睡了，木有看，有高手指点了啊。
仔细看了一遍，觉得你的程序不是循环的问题，而是下面一句
...

这也被看出来啦。

陈酿

sundf 发表于 2011-12-9 23:24
昨天回家倒头就睡了，木有看，有高手指点了啊。
仔细看了一遍，觉得你的程序不是循环的问题，而是下面一句
...

十分感谢。我把那句话真就换位置了。。。怎么换结果都不对。。。。

陈酿

sundf 发表于 2011-12-9 23:24
昨天回家倒头就睡了，木有看，有高手指点了啊。
仔细看了一遍，觉得你的程序不是循环的问题，而是下面一句
...

能在详细一些吗，书到用时方恨少啊，愁死了