Question

我需要在第24列中写入IF公式的结果，其中包括对相对单元格的引用。我认为最好的方法是使用Evluate函数，但我并不了解如何在公式中编写每个单元格相对引用。这是我的代码

Set Rng1 = Sheets("Leaders").Cells(12, 19)

g = Evaluate("IF(OR(" & Rng1.Offset(, -3).Address(False, False) & "=""x""," & Rng1.Offset(, -5).Address(False, False) & "=""1:1 matching"")," & Rng1.Offset(, 3).Address(False, False) & "*" & Rng1.Offset(, 4).Address(False, False) & ")")


Sheets("Leaders").Range(Cells(12, 24), Cells(lastRow1, 24)) = Evaluate(g)

第24列的所有单元格中的结果为零

Answer 1

使用以下代码。

Sheets("Leaders").Range(Cells(12, 24), Cells(lastRow1, 24)) = "=IF(OR(RC[-8]=""x"",RC[-10]=""1:1 matching""),RC[-2]*RC[-1])"

使用单元格相对引用vba

1 个答案: