自动写入数字到单元格

发布时间:2019年8月28日         浏览次数:44次

源代码:

 

Sub 逐条开始放入单元格()

 

'定义总数

Dim zongshu As Integer

zongshu = Range("D1").Value + 3   '有3个空行,所以需要 + 3

 

 

'放入单元格 ,利用循环语句,逐个将数据写入单元格

'数据从A1依此写入

 

For i = 4 To zongshu

 

Cells(i, "a").Value = i - 3    '空3行,从1开始写入单元格

 

Next

 

 

End Sub

 

源文件下载:

点击下载文件:自动写入数字到单元格.rar