我们可以给单元格输入普通公式，和数组公式。输入公式，其实就是输入公式的字符串。

输入普通公式

可以使用Range对象的Value属性，或者Formula属性，达到的效果一样。

下面两种写法等效。

Range('A1').Value = '=SUM(A2:A100)'' 等效于Range('A1').Formula = '=SUM(A2:A100)'

输入数组公式

给单元格输入数组公式，需要使用FormulaArray属性。

以下案例，给选区A2:A5输入数组公式'=B2:B5*C2:C5'。

'''Sub arrayFormula()    Dim rng As Range    '    Set rng = Range('A2:A5') ' 需要写公式的区域    rng.FormulaArray = '=B2:B5*C2:C5'    Set rng = NothingEnd Sub

如果要删除数组公式，需要定位到数组公式区域的某个单元格，然后清除单元格内容。参考以下案例：

'''Sub clearFormulaArray() Dim rng As Range ' 指定选区中的任意一个单元格 Set rng = Range('A2') ' rng.CurrentArray.Select Selection.Clear Set rng = NothingEnd Sub

本站仅提供存储服务，所有内容均由用户发布，如发现有害或侵权内容，请点击举报。