[已解决]请教高手：能不能用个循环来完成A11、B22、C33、D44…………等50个值的填充。

yxwhuiming

请教高手：能不能用一个循环来完成A11、B22、C33、D44…………等50个值的填充。

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-2-21 11:25

1. Sub test()
   
2.     On Error Resume Next
   
3.     Application.ScreenUpdating = False
   
4.     Dim i&
   
5.     For i = 1 To 50
   
6.         Cells(i * 11, i) = i
   
7.     Next
   
8.     Application.ScreenUpdating = True
   
9.     MsgBox "填充完成"
   
10. End Sub

复制代码

跳转到最佳答案楼层

hwc2ycy

1. Sub test()
   
2.     On Error Resume Next
   
3.     Application.ScreenUpdating = False
   
4.     Dim i&
   
5.     For i = 1 To 50
   
6.         Cells(i * 11, i) = i
   
7.     Next
   
8.     Application.ScreenUpdating = True
   
9.     MsgBox "填充完成"
   
10. End Sub

复制代码

yxwhuiming

谢谢{:011:}{:011:}

zjyxp

向班主任学习VBA