示例

　　此例在D列显示B列单元格中的公式。

　　Sub 公式()

　　Dim N As Integer

　　N = Range("B65536").End(xlUp).Row

　　For N1 = 3 To N Step 1

　　Range("D" & N1) = Range("B" & N1).Formula

　　Next

　　End Sub

　　Range.Formula 属性

　　返回或设置一个 Variant 值，它代表 A1 样式表示法和宏语言中的对象的公式。

　　语法

　　表达式.Formula

　　表达式   一个代表 Range 对象的变量。

　　说明

　　如果单元格包含一个常量，此属性返回该常量。如果单元格为空，此属性返回一个空字符串。如果单元格包含公式，Formula 属性将该公式作为字符串返回，所用格式与在编辑栏（包括等号）中显示时的格式相同。

　　如果将单元格的值或者公式设置为日期类型，则 Microsoft Excel 将检查此单元格的数字格式是否符合日期或者时间格式。如果不符合，Microsoft Excel 将把数字格式设置为默认的短日期格式。