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

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

本文为《别怕，Excel VBA其实很简单（第3版）》随书问题参-

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

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

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

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

版权声明：本文内容由网络用户投稿，版权归原作者所有，本站不拥有其著作权，亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容，请联系我们jiasou666@gmail.com 处理，核实后本网站将在24小时内删除侵权内容。