VBA中使用含变量行号的IF语句报错问题求助

• 问题根源：你的代码里变量Row2、Row1和前后的字符串片段之间没加拼接运算符&，这直接导致了语法错误；另外双引号的转义写法可以更规范。
• 修正后的单条公式代码：

  ActiveCell.Formula = "=IF('Other Sheet'!D" & Row2 & "="""", 'Other Sheet'!D" & Row1 & ", 'Other Sheet'!D" & Row2 & ")"
  

• 实现行号每次递增5的循环示例：
  假设从Row1=1、Row2=2开始循环，每次行号加5，代码如下：

  Dim Row1 As Integer, Row2 As Integer, i As Integer
  Row1 = 1
  Row2 = 2
  
  ' 可自定义循环次数，比如循环5次
  For i = 1 To 5
      ActiveCell.Formula = "=IF('Other Sheet'!D" & Row2 & "="""", 'Other Sheet'!D" & Row1 & ", 'Other Sheet'!D" & Row2 & ")"
      ' 切换到下一个要写入公式的单元格，例如下移一行
      ActiveCell.Offset(1, 0).Select
      ' 行号递增5
      Row1 = Row1 + 5
      Row2 = Row2 + 5
  Next i
  

• 关键说明：
  • VBA里字符串和变量拼接必须用&连接每一部分，不能直接把变量贴在字符串后面。
  • 公式中的空值判断""，在VBA字符串里要写成""""（两个双引号代表一个实际的双引号）。
  • 通过循环中给Row1、Row2累加5，就能生成你需要的D2→D7→D12...这类行号的公式。

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