如何通过宏在单元格中粘贴公式？

  • Z时代
  • 2024-01-10
  • 分类：问答

我想通过VBA在Excel单元格中粘贴公式，但没有运气。 当我尝试这种代码，它完美的作品 -如何通过宏在单元格中粘贴公式？

ActiveSheet.Range("B7").Value = "=VLOOKUP(A7,$A$1:$B$3,2,0)"

但是当我尝试这种代码

ActiveSheet.Range("B7").Value = "=VLOOKUP(CONCATENATE(VLOOKUP(LOOKUP(2,1/($A$5:A7<>""),$A$5:A7),Instructions!$A$4:$B$40,2,0),NTFS!XFC7-2),'Trial Balance'!$I$55:$J$1048576,2,0)"

它与错误1004运行时错误结束 - 应用程序定义或对象定义的错误。

我只是希望公式粘贴到细胞中的任何其他代码会工作。请帮助我解释发生此错误的原因，并要求您提供一个破解或替代方法来粘贴公式。

在此先感谢！

回答：

尝试：

ActiveSheet.Range("B7").FormulaR1C1 = "=VLOOKUP(CONCATENATE(VLOOKUP(LOOKUP(2,1/($A$5:A7<>""),$A$5:A7),Instructions!$A$4:$B$40,2,0),NTFS!XFC7-2),'Trial Balance'!$I$55:$J$1048576,2,0)"

回答：

尝试这种情况：

ActiveSheet.Range("B7").Formula = "=VLOOKUP(CONCATENATE(VLOOKUP(LOOKUP(2,1/($A$5:A7<>""""),$A$5:A7),Instructions!$A$4:$B$40,2,0),NTFS!XFC7-2),'Trial Balance'!$I$55:$J$1048576,2,0)"

注意，值用式置换和<后引号>加倍。

以上是 如何通过宏在单元格中粘贴公式？ 的全部内容， 来源链接： utcz.com/qa/259734.html

回到顶部