Sub 任意选中多个单元格后自动填入内容()
Dim text As Range
For Each text In Selection
text = "内容"
Next
End Sub
双引号里的内容可以是EXCEL的函数.也可以是任何计算公式.
例如:
假设a1单元格内容=3
那么当:
text="=a1*6"
则最终所有被任意选中的单元格的内容将显示18
并且以后当A1单元格的内容发生变化时.这些自动填写的内容也将发生变化
Rem step1
If i<20
MoveTo 900,50
LeftClick 0
a="测式文本"+Cstr(i)
i=i+1
SayString(a)
Delay 3000
Goto step1
这个问题很久以前就遇到了,就是自动填写N个单元格.
由于手工操作也不是太麻烦,也以一直没有解决.
学完EXCEL的基础以后便接触到了宏,知道它很强大.也知道它其实就是VB编程
.一直以来对编程就很着迷也很恐惧,所以一直没有深入探究.今天由于一个偶然,自己摸出了第一个简单的宏.
发出来作纪念.希望不会怡笑大方.代码如下:
以下是程序注释说明
功能:在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
程序结束