excel - VBA：插入时避免在我的公式中使用“at”符号

Question

如果 A 到 J 列中存在值，我正在尝试让我的 VBA 代码自动输入公式。

它按预期工作，但不幸的是 VBA 会自动抛出一堆“@”符号，这使我的公式不起作用。

代码非常简单：

Sub INSERTFORMULAS()
    Dim sheetVARS As Worksheet
    
    Set sheetVARS = ActiveWorkbook.Sheets("VARS")
    
    Intersect(ActiveSheet.UsedRange.Columns("A:J").SpecialCells(2).EntireRow.Offset(1), Columns("K")).Value = "=SUMPRODUKT((" & sheetVARS.Name & "!$A$2:$A$712=J2)*(" & sheetVARS.Name & "!$B$2:$B$712=$Q$2)*(" & sheetVARS.Name & "!$D$2:$D$712))"

End Sub

结果是：

=@SUMPRODUKT((@VARS!$A$2:$A$712=J2)*(@VARS!$B$2:$B$712=$Q$2)*(@VARS!$D$2:$D$712))

我需要的是：

=SUMPRODUKT((VARS!$A$2:$A$712=J2)*(VARS!$B$2:$B$712=$Q$2)*(VARS!$D$2:$D$712))

请注意，我的 Excel 是丹麦语，与您的相比可能会导致一些差异。

我真的很感激对此的一些帮助，否则，基本问题！

谢谢。

标签： excelvbainsertformula