Excel VBA单元格输入输出常量

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