Excel VBA在工作表中的单元格中输入输出常量
工具/原料
Excel 2013
常量的输入
1、Sub 常量输入()Range("a1:a10").Value = "百度经验"End Sub执行接入下图A列
2、Sub 输入数字()Dim x As IntegerFor x = 1 To 10 Cells(x, 2).Value = xNextEnd 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 yEnd 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 yEnd Sub执行结果如下图所示：
单元格的address属性
1、Address 属性用法如下：Address 省略参数时是（true,true）格式，即行和列都绝对。 .True可以用数字1 代替， False 可以用0 代替。
2、单元格中公式的输出：公式的输出是取得单元格中的公式文本Sub 公式输出()MsgBox "单元格中公式为" & Range("d2").FormulaEnd Su