这个循环怎么改

sundf

陈酿 发表于 2011-12-10 17:34
能在详细一些吗，书到用时方恨少啊，愁死了

不是那行换位置，是把结果写其他地方。一会发个给你哈

陈酿

sundf 发表于 2011-12-10 18:19
不是那行换位置，是把结果写其他地方。一会发个给你哈

十分感谢，女生当程序员了不起！！！

sundf

陈酿 发表于 2011-12-10 18:42
十分感谢，女生当程序员了不起！！！

我是男的

陈酿

sundf 发表于 2011-12-10 18:46
我是男的

说话太有礼貌了，不好意思

sundf

陈酿 发表于 2011-12-10 18:50
说话太有礼貌了，不好意思

我一直很有礼貌的，哈哈
改了一下，把i和j的循环位置换了下，就是把你原来按行操作改成了按列操作。
不过没试过。。。

Dim TmpArray()

For k = St To Si
        ReDim TmpArray(mstarting(k) + ma(k) - 1)
            For j = 2 To n - Descolumncount
            For i = mstarting(k) To mstarting(k) + ma(k) - 1
                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
                TmpArray(i) = rcount / ma(k)
                'Cells(i, j) = rcount / ma(k)
                rcount = 0
            Next i
            For i = mstarting(k) To mstarting(k) + ma(k) - 1
                Cells(i, j) = TmpArray(i)
            Next i
            Next j
    Next k
   

陈酿

sundf 发表于 2011-12-10 19:01
我一直很有礼貌的，哈哈
改了一下，把i和j的循环位置换了下，就是把你原来按行操作改成了按列操作。
不过 ...

1. 能用代码模式贴出来吗。。。。
   
2. 
   
3. 
   

复制代码

sundf

1. Dim TmpArray()
   
2. 
   
3. For k = St To Si
   
4.         ReDim TmpArray(mstarting(k) + ma(k) - 1)
   
5.             For j = 2 To n - Descolumncount
   
6.             For i = mstarting(k) To mstarting(k) + ma(k) - 1
   
7.                 For l = mstarting(k) To mstarting(k) + ma(k) - 1
   
8.                     If Cells(i, j) = Cells(l, j) Then
   
9.                         rcount = rcount + 1
   
10.                     End If
    
11.                 Next l
    
12.                 TmpArray(i) = rcount / ma(k)
    
13.                 'Cells(i, j) = rcount / ma(k)
    
14.                 rcount = 0
    
15.             Next i
    
16.             For i = mstarting(k) To mstarting(k) + ma(k) - 1
    
17.                 Cells(i, j) = TmpArray(i)
    
18.             Next i
    
19.             Next j
    
20.     Next k
    
21.    

复制代码

陈酿

sundf 发表于 2011-12-10 19:01
我一直很有礼貌的，哈哈
改了一下，把i和j的循环位置换了下，就是把你原来按行操作改成了按列操作。
不过 ...

程序运行通过，十分感谢。可惜二位不是女的，要不然我还想追一个呢

sundf

陈酿 发表于 2011-12-10 19:16
程序运行通过，十分感谢。可惜二位不是女的，要不然我还想追一个呢

让你失望了

陈酿

sundf 发表于 2011-12-10 19:17
让你失望了

才发现，朋友给写的下一步程序也有问题。。。。