[已解决]VBA求数据

excelpxfans001

VBA求数据

最佳答案

月排行榜 / 总排行榜

grf1973

2016-11-23 15:03

1. Sub tt()
   
2.     Dim arr(1 To 5, 1 To 2)
   
3.     x = Val(ActiveCell) + 10
   
4.     For i = 1 To 5
   
5.         arr(i, 1) = (x - 3 + i) Mod 10
   
6.         arr(i, 2) = (x + 2 + i) Mod 10
   
7.     Next
   
8.     [J1].Resize(5, 2) = arr
   
9. End Sub
   

复制代码

跳转到最佳答案楼层

grf1973

1. Sub tt()
   
2.     Dim arr(1 To 5, 1 To 2)
   
3.     x = Val(ActiveCell) + 10
   
4.     For i = 1 To 5
   
5.         arr(i, 1) = (x - 3 + i) Mod 10
   
6.         arr(i, 2) = (x + 2 + i) Mod 10
   
7.     Next
   
8.     [J1].Resize(5, 2) = arr
   
9. End Sub
   

复制代码