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

2021年10月23日 14:40 发布来源：Excel学习网

如果要在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学习网 [ http://www.excelcn.com/]
需要保留本文链接地址：http://www.excelcn.com/xuexixinde/14033.html

分享到：