如何在Excel VBA中借助FirstRow实现动态IF公式？

我来帮你搞定这个VBA动态公式的问题！你遇到的核心问题是字符串拼接的语法错误，导致Excel没有识别出你要的公式结构，反而直接计算出了布尔值。咱们一步步拆解问题，再给出正确的写法：

你的两种写法的错误分析 #

1. 直接嵌入变量的写法错误 #

你原来的代码：

Range("Q" & FirstRow).Offset(1).Formula = "=IF(P" & FirstRowOffset1 & ") <> (P" & FirstRowOffset2 & "),1,0"

这里的括号位置完全错了——你把P&FirstRowOffset1的右括号放在了比较运算符<>前面，导致整个表达式逻辑混乱，Excel会直接计算单元格的值并判断，结果自然是布尔值，而非保留公式结构。

2. 使用单元格对象的写法错误 #

你原来的代码：

Range("Q" & FirstRow).Offset(1).Formula = "=IF( & fro1 & " <> " & fro2 & ),1,0"

这里有两个关键问题：

• 字符串拼接语法错误：没有用&正确连接字符串和变量，引号的位置也混乱了；
• 直接引用Range对象fro1会取单元格的值，而非单元格的地址，必须用Address属性来获取单元格的引用地址。

正确的两种写法 #

写法一：直接拼接行号（修正语法） #

只需要把比较逻辑放在IF的第一个参数里，修正括号和拼接顺序：

Range("Q" & FirstRow).Offset(1).Formula = "=IF(P" & FirstRowOffset1 & "<>P" & FirstRowOffset2 & ",1,0)"

这样生成的公式就是标准的Excel格式，比如当FirstRowOffset1=43、FirstRowOffset2=44时，会生成你原来的固定公式=IF(P43<>P44,1,0)。

写法二：使用Range对象的Address属性 #

如果想用单元格对象来拼接，需要用Address获取单元格地址，同时修正字符串拼接的语法：

Set fro1 = Worksheets("Compliance").Range("P" & FirstRowOffset1)
Set fro2 = Worksheets("Compliance").Range("P" & FirstRowOffset2)
Range("Q" & FirstRow).Offset(1).Formula = "=IF(" & fro1.Address & "<>" & fro2.Address & ",1,0)"

这种写法更灵活，尤其是当你需要切换工作表引用时，Address还可以带参数（比如External:=True）来生成跨表引用。

修正后的完整代码片段 #

另外我注意到你最后一行的公式还有括号不匹配的问题，这里给你修正后的完整代码片段，同时去掉了冗余的Select操作（VBA里尽量避免用Select，直接操作Range对象更高效稳定）：

LastRowInput = Worksheets("Input").Cells(Rows.Count, 1).End(xlUp).Row ' 去掉多余的Offset()
LastRowMatchC = Worksheets("Compliance").Cells(Rows.Count, 1).End(xlUp).Row
LastRowSumC = Worksheets("Compliance").Cells(Rows.Count, 1).End(xlUp).Row ' Offset(0,0)可以省略
FirstRow = Worksheets("WIP extract").Cells(Rows.Count, 1).End(xlUp).End(xlUp).Row
FirstRowFill = Worksheets("WIP extract").Cells(Rows.Count, 1).End(xlUp).End(xlUp).Offset(1).Row
FirstRowOffset1 = Worksheets("WIP extract").Cells(Rows.Count, 1).End(xlUp).End(xlUp).Offset(1).Row
FirstRowOffset2 = Worksheets("WIP extract").Cells(Rows.Count, 1).End(xlUp).End(xlUp).Offset(2).Row

'~~> Autofill formules
Range("P" & FirstRow) = "Check"
Range("Q" & FirstRow) = "ID"

Set frCP = Worksheets("Compliance").Range("P" & FirstRowFill & ":P" & LastRowMatchC)
Range("P" & FirstRow).Offset(1).FormulaArray = "=IFERROR(INDEX(Input!$A$2:A$" & LastRowInput & ",MATCH(1,SEARCH(TRANSPOSE(Input!$A$2:A$" & LastRowInput & "),O" & FirstRowFill & "),0),0),""ZZ"")"
Range("P" & FirstRow).Offset(1).AutoFill Destination:=frCP

Set frCQ = Worksheets("Compliance").Range("Q" & FirstRowFill & ":Q" & LastRowMatchC)
' 这里用正确的公式写法
Range("Q" & FirstRow).Offset(1).Formula = "=IF(P" & FirstRowOffset1 & "<>P" & FirstRowOffset2 & ",1,0)"
Range("Q" & FirstRow).Offset(1).AutoFill Destination:=frCQ

内容的提问来源于stack exchange，提问作者PetePwC