1、Sub 常量输入()
Range("a1:a10").Value = "百度经验"
End Sub
执行接入下图A列
2、Sub 输入数字()
Dim x As Integer
For x = 1 To 10
Cells(x, 2).Value = x
Next
End Sub
执行结果如下图B列：
1、在程序中，可以直接引用单元格的值参加运算或进行其他处理。举例如下：
Sub 计算()
Range("d2") = Range("b2") * Range("c2")
End Sub
2、固定公式是指输入到单元格中的公式在程序中已经确定。
Sub 输入公式()
Range("d2").Formula = "b2*c2"
End Sub
3、可变公式是指所输入的公式位置不固定。因为公式位置不固定，所以公式使用的单元格引用也是不固定的。
Sub 输入公式()
Dim X As Integer
X = Range("a" & Rows.Count).End(xlUp).Row
For y = 2 To X
Range("d" & y) = Range("c" & y) * Range("b" & y)
Next y
End Sub
执行如下图
4、也可以通过如下方式
Sub 输入公式()
Dim X As Integer
Dim Rng1, Rng2 As String
X = Range("a" & Rows.Count).End(xlUp).Row
For y = 2 To X
Rng1 = Cells(y, 4).Offset(0, -1).Address(0, 0)
Rng2 = Cells(y, 4).Offset(0, -2).Address(0, 0)
Cells(y, 4) = "=" & Rng1 & "*" & Rng2
Next y
End Sub
执行结果如下图所示：
1、Address 属性用法如下：
Address 省略参数时是（true,true）格式，即行和列都绝对。 .
True可以用数字1 代替， False 可以用0 代替。
2、单元格中公式的输出：
公式的输出是取得单元格中的公式文本
Sub 公式输出()
MsgBox "单元格中公式为" & Range("d2").Formula
End Su
