这个问题很久以前就遇到了,就是自动填写N个单元格.
由于手工操作也不是太麻烦,也以一直没有解决.
学完EXCEL的基础以后便接触到了宏,知道它很强大.也知道它其实就是VB编程
.一直以来对编程就很着迷也很恐惧,所以一直没有深入探究.今天由于一个偶然,自己摸出了第一个简单的宏.
发出来作纪念.希望不会怡笑大方.代码如下:
Sub Macro1()
Dim i As Integer
For i = 1 To 10000
Range("A" & i).Select
ActiveCell.FormulaR1C1 = "2010"
Next
End Sub
Dim i As Integer
For i = 1 To 10000
Range("A" & i).Select
ActiveCell.FormulaR1C1 = "2010"
Next
End Sub
以下是程序注释说明
功能:在excel中利用宏的循环语句自动批量填写表格
情况:假设需要在A列的第1到第10000个单元格填入"2010"
语句分析:
Sub Macro1()
这句的意思是这个宏程序的入口
Dim i As Integer
这句是定义一个变量,变量名是i 变量类型是Integer 也就是整数
For i = 1 To 10000
这句是循环的开始,变量从1到10000 这个数字范围随你的意愿
Range("A" & i).Select
这句是指定表格范围 ("A" & i)=Ai 当i=1的时候 Ai=A1 依此类推.
ActiveCell.FormulaR1C1 = "2009"
这句是对当前的活动单元格填入"2010" 当然你可以写入任何文字
Next
执行下一个循环,直至i=10000时结束本程序
End Sub
程序结束
分享到 代码测式
Sub Macro1()
Dim b As Date
b = 10001
b = b + 1
Dim i As Integer
For i = 1 To 10000
Range("A" & i).Select
ActiveCell.FormulaR1C1 = "编号" & b
Next
End Sub
程序改进后如下.增加一个变量b,使填写的单元内容有递增效果
b>=10001