[已解决]用VBA输出六行数字图案

laoau138

用VBA输出六行数字图案

666666
55555
4444
333
22
1

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2017-4-25 09:40

1. Sub aaa()
   
2. Dim i&, arr(1 To 6, 1 To 1)
   
3. For i = 1 To 6
   
4.   arr(i, 1) = String(7 - i, CStr(7 - i))
   
5. Next i
   
6. [a1].Resize(6) = arr
   
7. End Sub

复制代码

跳转到最佳答案楼层

大灰狼1976

1. Sub aaa()
   
2. Dim i&, arr(1 To 6, 1 To 1)
   
3. For i = 1 To 6
   
4.   arr(i, 1) = String(7 - i, CStr(7 - i))
   
5. Next i
   
6. [a1].Resize(6) = arr
   
7. End Sub

复制代码