[已解决]序列数

mmc998

Book序列数.zip (55.75 KB, 下载次数: 15)

2015-1-8 21:11 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

dsmch

2015-1-9 06:31

1. Sub Macro1()
   
2. Dim arr, i&, j%, n%
   
3. arr = Range("a12").CurrentRegion
   
4. n = UBound(arr, 2)
   
5. For i = 1 To UBound(arr)
   
6.     For j = 1 To n
   
7.         arr(i, j) = arr(i, j) - j * 0.01
   
8.     Next
   
9. Next
   
10. Range("h12").Resize(UBound(arr), n) = arr
    
11. For i = 1 To UBound(arr)
    
12.     For j = 1 To n
    
13.         arr(i, j) = Application.Rank(arr(i, j), Cells(i + 11, "h").Resize(1, n))
    
14.     Next
    
15. Next
    
16. Range("h12").CurrentRegion = arr
    
17. End Sub

复制代码

跳转到最佳答案楼层

dsmch

1. Sub Macro1()
   
2. Dim arr, i&, j%, n%
   
3. arr = Range("a12").CurrentRegion
   
4. n = UBound(arr, 2)
   
5. For i = 1 To UBound(arr)
   
6.     For j = 1 To n
   
7.         arr(i, j) = arr(i, j) - j * 0.01
   
8.     Next
   
9. Next
   
10. Range("h12").Resize(UBound(arr), n) = arr
    
11. For i = 1 To UBound(arr)
    
12.     For j = 1 To n
    
13.         arr(i, j) = Application.Rank(arr(i, j), Cells(i + 11, "h").Resize(1, n))
    
14.     Next
    
15. Next
    
16. Range("h12").CurrentRegion = arr
    
17. End Sub

复制代码