VBA拼接Excel公式与变量值时出现运行时错误1004求助

你的代码报错核心原因是：将单元格值嵌入公式时，没有给文本值添加双引号。Excel公式中引用文本常量必须用双引号包裹，而VBA里要在字符串中输出双引号，需要用两个双引号（""）进行转义。

修正后的代码 #

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Cells(1, ActiveCell.Column).Value = "postcode" Then
        ' 给嵌入的单元格值添加双引号转义
        Range("V" & ActiveCell.Row).Formula2 = "=FILTER(installationExport[[PMAC ID]:[Monitor Serial Number]],installationExport[Postcode beginning]=LEFT(""" & CStr(ActiveCell.Value) & """,6))"
    End If
End Sub

关键修改说明 #

把原代码中的CStr(ActiveCell.Value)改为""" & CStr(ActiveCell.Value) & """，这样拼接后，公式里的LEFT函数参数会变成LEFT("单元格实际值",6)，完全符合Excel公式的语法要求。

优化建议（可选） #

建议用事件参数Target代替ActiveCell，Target是Worksheet_SelectionChange事件的原生参数，直接指向当前选中的单元格，逻辑更严谨：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ' 避免多选单元格时触发错误
    If Target.Cells.Count > 1 Then Exit Sub
    If Cells(1, Target.Column).Value = "postcode" Then
        Range("V" & Target.Row).Formula2 = "=FILTER(installationExport[[PMAC ID]:[Monitor Serial Number]],installationExport[Postcode beginning]=LEFT(""" & CStr(Target.Value) & """,6))"
    End If
End Sub

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