[已解决]连续相加的问题

李全有

附件 连续相加附件.zip (7.99 KB, 下载次数: 6)

2015-4-12 06:57 上传

点击文件名下载附件
谢谢各位老师！

最佳答案

月排行榜 / 总排行榜

qh8600

2015-4-12 09:16

连续相加附件.rar (17.74 KB, 下载次数: 1)

2015-4-12 09:18 上传

点击文件名下载附件

跳转到最佳答案楼层

qh8600

1. Sub demo()
   
2.     Dim ar, br(), i, j, n
   
3.     x = Cells(Rows.Count, 1).End(3).Row
   
4.     ar = Range("a1:a" & x)
   
5.     ReDim br(1 To 47 * x, 1 To 1)
   
6.     For i = 2 To 48
   
7.         For j = 1 To UBound(ar)
   
8.             n = n + 1
   
9.             br(n, 1) = ar(j, 1) + i
   
10.         Next
    
11.     Next
    
12.     Range("b1").Resize(n, 1) = br
    
13. End Sub
    

复制代码

附件楼下，楼主试试

qh8600

连续相加附件.rar (17.74 KB, 下载次数: 1)

2015-4-12 09:18 上传

点击文件名下载附件