如果要在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

上一篇：excel教程：获得工作表中第1行空行的行号 下一篇：excel教程：简单实用又好玩：在下拉菜单中选择计算方式

郑重声明：本文版权归原作者所有，转载文章仅为传播更多信息之目的，如作者信息标记有误，请第一时间联系我们修改或删除，多谢。