VBA Range内容

获取单元格中的内容，相关属性有：

内容属性	成员	说明
值	Value	单元格的值。如果是公式，则是计算后的值。
公式	Formula	公式本身。
文本	Text	显示的内容。只读。例如，列宽不够时显示###，则Text会返回###。

示例

例1：Value属性。

修改E3单元格（小步教程）的成绩为100。

Sub sub2_1()

  Dim ws As Worksheet
  Set ws = Workbooks.Item("小步教程1.xlsx").Worksheets.Item("Sheet1")

  Dim r As Range
  Set r = ws.Range("E3")

  Debug.Print r.Value   '读取单元格的值
  r.Value = "100"     '写单元格的值

End Sub

例2：Formula属性。

D8单元格中求前两位同学的成绩。

E8单元格中求所有同学的成绩。

Sub sub2_2()
  Dim ws As Worksheet
  Set ws = Workbooks.Item("小步教程1.xlsx").Worksheets.Item("Sheet1")

  Dim r As Range
  '求前两位同学成绩的和
  Set r = ws.Range("D8")
  r.Formula = "=E3+E4"

  '求所有同学成绩的和
  Set r = ws.Range("E8")
  r.Formula = "=SUM(E3:E6)"

End Sub

运行结果如下：

❮上一节 VBA 获取Range对象下一节 VBA 设置Range数值格式❯

第08章 VBA Excel对象

VBA Range内容

VBA 教程