如何解决VBA:插入时避免在公式中使用“ at”符号
如果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 举报,一经查实,本站将立刻删除。