如何用VBA代码替换Excel公式？公式转VBA遇1004错误求解

问题原因 #

直接将Excel公式复制到VBA中执行触发1004错误，核心原因包括：

• VBA字符串中的双引号需转义（用两个双引号表示单个双引号）
• VBA无法直接将Excel公式作为可执行代码运行，需通过特定方法写入单元格或用VBA内置逻辑实现

解决方案 #

方案1：在VBA中给单元格写入Excel公式 #

若需保留公式在单元格内，使用Formula属性并处理双引号转义：

' 给单个单元格（如AZ2）设置公式
Range("AZ2").Formula = "=IF(AY2=AX2,AW2,"""")"

' 批量设置整列公式（从第2行到数据最后一行）
Dim ws As Worksheet
Dim lastRow As Long
Set ws = ThisWorkbook.Worksheets("Sheet1") ' 替换为你的工作表名称
lastRow = ws.Cells(ws.Rows.Count, "AX").End(xlUp).Row ' 以AX列为准获取最后一行数据
ws.Range("AZ2:AZ" & lastRow).Formula = "=IF(AY2=AX2,AW2,"""")"

也可使用R1C1引用样式（更适合批量操作）：

Range("AZ2").FormulaR1C1 = "=IF(RC[-1]=RC[-2],RC[-3],"""")"

方案2：用VBA逻辑直接计算值（不写入公式） #

若无需单元格保留公式，直接计算结果赋值，使用VBA内置IIf函数：

' 单个单元格赋值
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("Sheet1")
ws.Range("AZ2").Value = IIf(ws.Range("AY2").Value = ws.Range("AX2").Value, ws.Range("AW2").Value, "")

' 批量计算整列
Dim lastRow As Long
Dim i As Long
lastRow = ws.Cells(ws.Rows.Count, "AX").End(xlUp).Row
For i = 2 To lastRow
    ws.Cells(i, "AZ").Value = IIf(ws.Cells(i, "AY").Value = ws.Cells(i, "AX").Value, ws.Cells(i, "AW").Value, "")
Next i

1004错误额外排查点 #

• 确认引用的工作表存在且已正确指定（避免依赖ActiveSheet导致的激活问题）
• 检查目标单元格是否被保护或处于只读状态
• 非英文Excel版本需确保函数名称与对应语言匹配（中文Excel仍使用IF）

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