在Excel中，公式是我们经常使用的功能之一，它能够帮助我们进行数据计算和分析，提高我们的工作效率和精度。但在实际操作中，我们可能会遇到需要快速生成和修改多个公式的情况，这时候就需要用到formular1c1函数了。本文将详细介绍如何使用formular1c1来快速生成和修改公式。

一、什么是formular1c1函数

formular1c1是Excel VBA中的一个函数，用于生成、修改Excel中的公式。该函数接收一个字符串参数，表示要生成或修改的公式内容，并将其作为文本对待。它可以把变量放在公式中，然后使用变量的值来执行计算，甚至还能够自动生成公式。

二、怎样使用formular1c1函数

1. 基本用法

在VBA中使用formular1c1函数生成公式的基本语法如下：

Range.FormulaR1C1 = "公式"

其中，Range表示单元格范围，即公式要写入的单元格；FormulaR1C1是Range对象的属性，用于传递公式信息；公式是需要生成的数学运算表达式。

例如，要在A1单元格中生成一个求和的公式，代码如下：

Range("A1").FormulaR1C1 = "=SUM(R[1]C:R[4]C)"

其中的SUM函数表示求和，R[1]C表示该单元格下一行，R[4]C表示该单元格下四行，因此这个公式表示求A2到A5单元格的和。

2. 使用变量

与普通公式一样，formular1c1也支持使用变量。在定义变量后，可以使用&符号把变量的值连接到公式字符串的中间。例如，在B1和B2单元格中分别写入2和3，则下面的代码将在A1单元格中生成5这个结果：

Dim a As Integer

a = Range("B1").Value + Range("B2").Value

Range("A1").FormulaR1C1 = "=" & a

3. 自动填充公式

formular1c1还支持自动填充公式，可以在一行或一列中填充多个公式。要使用此功能，需要设置公式的相对位置（即填充方式），然后在需要填充公式的单元格中调用formular1c1函数。

例如，在A1单元格中输入“=R[1]C”，然后在A2单元格左侧的单元格输入“=A1”，可将A1中的公式自动填充到A2中，代码如下：

Range("A1").FormulaR1C1 = "=R[1]C"

Range("A2").FormulaR1C1 = "=A1"

4. 带变量的自动填充

与使用变量结果的公式一样，可以使用变量的结果自动填充公式。对于每个需要填充的单元格，可以设置一个变量的偏移量，然后插入变量的值。例如，下面的代码将在A1到A3单元格中生成1、3和6这三个数列：

Dim r As Range

Set r = Range("A1")

r.FormulaR1C1 = "=1"

r.AutoFill Destination:=Range("A1:A3"), Type:=xlFillDefault

5. 完整示例

下面是一个完整的示例，它使用formular1c1函数生成一个表格，其中包含了一个带变量的公式和一个自动填充公式：

Sub 函数生成公式()

'生成一个4列4行的表格

Range("A1:D4").Select

Selection.ClearContents

Selection.Borders(xlDiagonalDown).LineStyle = xlNone

Selection.Borders(xlDiagonalUp).LineStyle = xlNone

Selection.Borders(xlEdgeLeft).LineStyle = xlNone

Selection.Borders(xlEdgeTop).LineStyle = xlNone

Selection.Borders(xlEdgeBottom).LineStyle = xlNone

Selection.Borders(xlEdgeRight).LineStyle = xlNone

Selection.Borders(xlInsideVertical).LineStyle = xlNone

Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

'向表格中填充内容

Range("A1").Value = "x"

Range("A2").Value = 1

Range("A3").Value = 2

Range("A4").Value = 3

Range("B1").Value = "y"

'生成带变量的公式

Range("B2").FormulaR1C1 = "=(R[1]C1-R[-1]C1)/(R[1]C2-R[-1]C2)"

Range("B3").FormulaR1C1 = "=IF(R[1]C=0,""Not available"",R[-1]C+RC[-1]*R[1]C)"

Range("B4").FormulaR1C1 = "=SUM(R[-2]C:RC[-1])"

'生成自动填充公式

Range("C2").FormulaR1C1 = "=R[-1]C[1]/R[-1]C[2]"

Range("C3").FormulaR1C1 = "=IF(R[-1]C=""Not available"",""Not available"",R[-1]C+C2*R[1]C)"

Range("C2:C3").AutoFill Destination:=Range("C2:C4"), Type:=xlFillDefault

End Sub

三、formular1c1常用技巧

1. 使用相对位置

formular1c1函数支持相对位置，即使用R1C1坐标模式来引用单元格。使用相对位置，在公式中使用“R”和“C”代表相对当前单元格的行和列。

例如，在A1单元格中设置公式“=SUM(R[1]C[-2],R[-2]C[-1])”，将会求出A3和B1单元格的值的和。

2. 使用OFFSET函数

OFFSET函数能够动态地调整单元格的位置和大小，使公式更加灵活。在使用formular1c1函数时，可以使用OFFSET函数来定位单元格和计算公式。

例如，要在A2单元格中生成一个公式，它的值等于A1到B1单元格的和与B1到C1单元格的和的平均值，可以使用OFFSET函数，代码如下：

Range("A2").FormulaR1C1 = "=AVERAGE(OFFSET(R[-1]C,0,0,1,2),OFFSET(R[-1]C,0,1,1,2))"

3. 使用INDIRECT函数

INDIRECT函数可以根据文本串返回单元格的位置，然后使用该信息计算公式。在formular1c1函数中，INDIRECT可以帮助我们在不知道单元格位置的情况下计算公式。例如，下面的代码会在A1单元格中生成一个公式，在该公式中，使用单元格名称来引用其它单元格：

Range("A1").FormulaR1C1 = "=INDIRECT(""B1"")+INDIRECT(""C1"")"

四、总结

本文详细介绍了如何使用formular1c1函数在Excel中生成和修改公式。formular1c1是一个非常有用的函数，可以节省我们大量的时间和精力。通过灵活运用，我们可以快速地生成各种类型的公式，并带有变量和自动填充等功能。如果您需要进行复杂的数据计算和分析工作，不妨试试使用formular1c1函数，相信它能够帮助您提高工作效率。