Excel Home
全球知名的Excel资源网站之一

用For语句在A列的多个单元格中输入数据

本文为《别怕,Excel VBA其实很简单(第3版)》随书问题参考答案

如果要在A列写入1到100的自然数,可以将代码写为:

Sub 写入1到100的自然数()
Range("A:A").ClearContents '清除A列中原有的数据
Dim c As Range, i As Byte
i = 1
For Each c In Range("A1:A100")
c.Value = i
i = i + 1
Next c
End Sub

如果要在A列写入100以内能被3整除的正数,代码可以写为:

Sub 写入100以内能被3整除的正数()
Range("A:A").ClearContents '清除A列中原有的数据
Dim i As Byte, Irow As Byte
Irow = 1
For i = 3 To 100 Step 3
Cells(Irow, "A").Value = i
Irow = Irow + 1
Next i
End Sub

赞(0)
未经允许不得转载:ExcelHome » 用For语句在A列的多个单元格中输入数据
分享到: 更多 (0)

关于我们联系我们
本站特聘法律顾问:李志群律师   沪ICP备11019229号-2

沪公网安备 31011702000001号

征信