[已解决]VBA高手输出如图6.15所图形数字和点

vbyou127

VBA高手输出如图6.15所图形数字和点       

最佳答案

月排行榜 / 总排行榜

grf1973

2016-3-8 14:53

1. Sub tt()
   
2.     For i = 1 To 9
   
3.         x = IIf(i Mod 2 = 1, ".", i)
   
4.         Cells(i, 1) = Application.WorksheetFunction.Rept(x, i)
   
5.     Next
   
6. End Sub
   

复制代码

跳转到最佳答案楼层

grf1973

1. Sub tt()
   
2.     For i = 1 To 9
   
3.         x = IIf(i Mod 2 = 1, ".", i)
   
4.         Cells(i, 1) = Application.WorksheetFunction.Rept(x, i)
   
5.     Next
   
6. End Sub
   

复制代码