使用xlR1C1风格输入公式到单元格

Question

我有一个公式来实现xlR1C1风格。

我在营销数据库中添加了一个新的营销条目。我想要Cells (emptyRowM,9)在另一张表的数据透视表中搜索Cells (emptyRowM, 7)中的营销推介代码。此数据透视表显示与每个营销推介代码关联的总收入。因此，如果Cells (emptyRowM, 7)为零，则Cells (emptyRowM, 9将为空，否则，它将总结与推介代码相关的所有收入。

Dim emptyRowM As Long 
emptyRowM = Range("B100000").End(xlUp).Offset(1, 0).Row 
Cells (emptyRowM, 9) = "=IF(AND(SUMIF('Pivot Table'!B6:B99,'Marketing Data'!G12,'Pivot Table'!C6:C99)=0),"",SUMIF('Pivot Table'!B6:B99,'Marketing Data'!G12,'Pivot Table'!C6:C99))" 

Answer 1

转到文件 - >选项 - 在用式嘀 “R1C1引用样式”

所以，你的公式应该成为像

= IF（AND（SUMIF（'透视工作>公式有表'！R [-5] C [-5]：R [88] C [-5]，'市场数据'！R [1] C，'Pivot Table'！R [-5] C [-4] '市场数据'：R [88] C [-4]）= 0），“”，SUMIF（'Pivot Table'！R [-5] C [-5] ！

然后使用Cells（emptyRowM，9）.FormulaR1C1 =“= IF（AND（SUMIF（'Pivot Table'！R [-5] C [-5]：R [88] C [-5] ，“营销数据” '！R [1] C，'Pivot Table'！R [-5] C [-4]：R [88] C [-4]）= 0），“”，SUMIF（'Pivot Table'！R [ -5] C [-5]：R [88] C [-5]，'Marketing Data'！“

让我知道你是否有任何问题。

干杯， Sujoy