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

编程问答 2022-08-09

问题描述

如果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是丹麦语的，与您的Excel相比可能会引起一些差异。

我非常感谢对此有所帮助，否则，是基本问题！

谢谢。

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

excelexcelformulainsertinsertvba