这个循环怎么改

ペコチャン

嘿嘿 我很耐心地看了 有点绕~ 不过我看懂LZ的意思了
就是把一串数字里的重复次数输出出来。
就如LZ的例子
2 3 2 1 1 3 1 1 3
这串数字里1重复了4次，2重复了2次，3重复了3次
所以输出是
2 3 2 4 4 3 4 4 3

LZ用的啥语言 我不懂的说
但是我觉得你4个循环内嵌套有点问题~
我的想法是
做一组中间数组
第一次循环把重复次数存到中间数组
中间数组应该是这样的
{(2,2),(3,3),(1,4)}
然后第二次循环，把中间数组中相应的循环次数取出

我的方法应该有点烦 坐等高人一次循环搞定哈

陈酿

ペコチャン 发表于 2011-12-9 14:47
嘿嘿 我很耐心地看了 有点绕~ 不过我看懂LZ的意思了
就是把一串数字里的重复次数输出出来。
就如LZ的例子

换个例子 10 23  10 15 10 15 23 23 10
想要的rcount 结果是
              4  3    4    2   4   2   3   3   4
现在的rcount结果是
              4  3    3   2    2    1  2   1   1

这么说明白了吧

ペコチャン

陈酿 发表于 2011-12-9 15:31
换个例子 10 23  10 15 10 15 23 23 10
想要的rcount 结果是
              4  3    4    2   4   2    ...

我看明白了
也给你提出方案了

陈酿

ペコチャン 发表于 2011-12-9 15:39
我看明白了
也给你提出方案了

我菜鸟。。。。。啥都不会。。。。

snowman1101

意思是看懂了，语言也知道 vb.net
你一开始的数组是怎么来的 放在了哪 又要输出到哪
你把完整的代码贴出来

陈酿

snowman1101 发表于 2011-12-9 16:17
意思是看懂了，语言也知道 vb.net
你一开始的数组是怎么来的 放在了哪 又要输出到哪
你把完整的代码贴出来 ...

语言是vba

1. Sub Interior()
   
2.     Dim m As Long
   
3.     Dim n As Long
   
4.    
   
5.     Dim i As Long
   
6.     Dim j As Long
   
7.     Dim k As Long
   
8.     Dim l As Long
   
9.     Dim rcount As Long
   
10. 
    
11.    
    
12.     Worksheets("Sorting").Copy after:=Worksheets("Sorting")
    
13.     ActiveSheet.Name = "Interior competition"
    
14.     Worksheets("Interior competition").Activate
    
15.     ActiveCell.CurrentRegion.Select
    
16.     m = Selection.Rows.count
    
17.     n = Selection.Columns.count
    
18.    
    
19.     rcount = 0
    
20.         
    
21.     For k = St To Si
    
22.         For i = mstarting(k) To mstarting(k) + ma(k) - 1
    
23.             For j = 2 To n - Descolumncount
    
24.                 For l = mstarting(k) To mstarting(k) + ma(k) - 1
    
25.                     If Cells(i, j) = Cells(l, j) Then
    
26.                         rcount = rcount + 1
    
27.                     End If
    
28.                 Next l
    
29.                  
    
30.             
    
31.                 Cells(i, j) = rcount / ma(k)
    
32.                 rcount = 0
    
33.             Next j
    
34.             Next i
    
35.     Next k
    
36.    
    
37. End Sub

复制代码

部分变量定义在全局里

snowman1101

看来我这编程也不怎么样 看了半天也没看明白mstarting ，Descolumncount ，ma 都是什么函数

陈酿

snowman1101 发表于 2011-12-9 16:40
看来我这编程也不怎么样 看了半天也没看明白mstarting ，Descolumncount ，ma 都是什么函数 ...

您谦虚了

我把n列数据根据Descolumncount开始到n的数据大小的分组。（对程序没有太大影响）
第一组是St,最后一组是Si
mstarting(k)是每一组的第一个元素，是每组的数据的个数。
ma是每组元素的个数

snowman1101

先看 你最里层的循环

1. For l = mstarting(k) To mstarting(k) + ma(k) - 1
   
2. 
   
3.         If Cells(i, j) = Cells(l, j) Then
   
4. 
   
5.            rcount = rcount + 1
   
6. 
   
7.         End If
   
8. 
   
9. Next l

复制代码

比如第一次循环时 K=1，你的 For l = mstarting(k) To mstarting(k) + ma(k) - 1
那么 某一组的第一个数据就是mstarting(1)
可是到了第2次循环的时候 某一组的第一个数据 就是mstarting(2) 了
所以没循环一次 就是减少比较一个数据，当然比出来的个数就会每次减少1了

snowman1101

还有 vba的话 你为什么不用 WorksheetFunction.CountIf