文章关键字 ‘宏’

一个简单宏在excel中实现大批量自动填写

2010年02月28日,星期天

这个问题很久以前就遇到了,就是自动填写N个单元格.
由于手工操作也不是太麻烦,也以一直没有解决.
学完EXCEL的基础以后便接触到了宏,知道它很强大.也知道它其实就是VB编程

.一直以来对编程就很着迷也很恐惧,所以一直没有深入探究.今天由于一个偶然,自己摸出了第一个简单的宏.
发出来作纪念.希望不会怡笑大方.代码如下:

Sub Macro1()
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
程序结束