[已解决]如何做出

mmc998

Book133.rar (32.54 KB, 下载次数: 27)

2014-10-19 20:10 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

dsmch

2014-10-19 22:09

1. Sub Macro1()
   
2. Dim arr, brr, i&, j&, s&
   
3. arr = Range("a3:b" & Cells(Rows.Count, 2).End(xlUp).Row)
   
4. ReDim brr(1 To UBound(arr), 1 To UBound(arr) - 1)
   
5. For i = 2 To UBound(arr)
   
6.     s = 0
   
7.     For j = i - 1 To 1 Step -1
   
8.         s = s + 1
   
9.         brr(i, s) = arr(i, 1) - arr(j, 2)
   
10.     Next
    
11. Next
    
12. Range("d3").Resize(UBound(brr), UBound(brr, 2)) = brr
    
13. End Sub

复制代码

跳转到最佳答案楼层

su45

看不懂要干什么！

mmc998

su45 发表于 2014-10-19 20:50
看不懂要干什么！

那里面是手工填的，你可以使用公式或vba

su45

看不明白就没法用公式及VBA

mmc998

su45 发表于 2014-10-19 21:23
看不明白就没法用公式及VBA

打开表格，你先找到1715行，里面有公式，d列是a1715-b1714，e列是a1715-b1713，向后，依次类推，a的序数不变，b的减小。然后，用鼠标向上拖

dsmch

1. Sub Macro1()
   
2. Dim arr, brr, i&, j&, s&
   
3. arr = Range("a3:b" & Cells(Rows.Count, 2).End(xlUp).Row)
   
4. ReDim brr(1 To UBound(arr), 1 To UBound(arr) - 1)
   
5. For i = 2 To UBound(arr)
   
6.     s = 0
   
7.     For j = i - 1 To 1 Step -1
   
8.         s = s + 1
   
9.         brr(i, s) = arr(i, 1) - arr(j, 2)
   
10.     Next
    
11. Next
    
12. Range("d3").Resize(UBound(brr), UBound(brr, 2)) = brr
    
13. End Sub

复制代码

小徒弟

这个是要干嘛？

su45

咱去洗个澡就慢了，但还是发吧：

Book133.zip (40.98 KB, 下载次数: 36)

2014-10-19 22:32 上传

点击文件名下载附件

mmc998

su45 发表于 2014-10-19 22:32
咱去洗个澡就慢了，但还是发吧：

谢谢