excel表格不一样的R1C1引用样式( 二 ) _知识经验

示例1：创建乘法表
如下图所示，在第2行第2列的单元格中输入公式：
=R1C*RC1
然后向左拖至第10列，向下拖至第10行，即可创建一个九九乘法表。
公式表示当前单元格所在行的第1列与当前单元格所在列的第1行的值相乘。

生成上述乘法表的VBA代码如下：
Sub MultiplySheet()
Range(“B2:J10″).FormulaR1C1 =”=R1C*RC1”
End Sub
示例2：在条件格式中使用R1C1样式
如下图所示的工作表，要求对列A中最大值的单元格所在的行添加红色背景色，对列A中最小值的单元格所在的行添加绿色背景色。
如果使用Excel条件格式对话框，则设置公式：
=$A1=MAX($A:$A)
【excel表格不一样的R1C1引用样式】=$A1=MIN($A:$A)
并设置满足条件时应用的填充色，如下图所示。

使用VBA代码也能达到同样的效果。代码如下：
Sub ToMaxMinApplyFormat()
Application.ReferenceStyle = xlR1C1
With Range(“1:6″)
.FormatConditions.Delete
.FormatConditions.AddType:=xlExpression, Formula1:=”=RC1=MAX(C1)”
.FormatConditions(1).Interior.Color =vbRed
.FormatConditions.AddType:=xlExpression, Formula1:=”=RC1=MIN(C1)”
.FormatConditions(2).Interior.Color =vbGreen
End With
Application.ReferenceStyle = xlA1
End Sub
说明：
代码先删除工作表区域中存在的条件格式。
指定添加条件格式的参数Type为xlExpression，表明要设置公式。
代码使用了R1C1样式的公式，因此，在应用条件格式前，先要将工作簿引用样式改为R1C1样式。
从代码中可以看出，Excel并不认为公式中的C1是指单元格C1，而是指第1列。
示例3：在数组公式中使用R1C1样式
如下图所示的工作表，我们使用数组公式：
=SUM(B2:B5*C2:C5)
一次求出表中4种水果的合计销售金额。

下面的代码使用数组公式计算销售合计金额：
Sub ArrayFormulasGetValue()
Range(“C6”).FormulaArray = _
“=SUM(R[-4]C[-1]:R[-1]C[-1]*R[-4]C:R[-1]C)”
End Sub
VBA帮助文档指出，使用VBA代码输入数组公式时，要使用R1C1样式。然而，我使用下面的代码：
Sub ArrayFormulasGetValue()
Range(“C6”).FormulaArray = _
“=SUM(B2:B5*C2:C5)”
End Sub
仍然能够达到上述效果。
使用下面的代码：
Range(“D2:D5”).FormulaArray= “=B2:B5*C2:C5”
在单元格区域D2:D5中自动输入每种水果销售额，即单价与销售量乘积。
是否是帮助文档有误？还是我理解有误？
技巧3：快速找到数组公式的R1C1样式。选中数组公式单元格，在VBE编辑器的立即窗口中，输入下列语句：
PrintActiveCell.FormulaR1C1
即可得到数组公式的R1C1样式，如下图所示。

excel表格不一样的R1C1引用样式( 二 )

猜你喜欢