- 日志
- 好友
- 卖家信用
- 买家信用
- 注册时间
- 2011-3-31
- 在线时间
- 小时
|
发表于 2011-12-10 19:06:59
|
显示全部楼层
- 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
-
复制代码
|
|