改进 VBA 代码答案

【问题标题】：Improve VBA code改进 VBA 代码
【发布时间】：2016-10-03 17:58:03
【问题描述】：

我有以下脚本，它将以下公式输入到范围 A2:A100 中。

WBNAME3 = "=IF(AND('\\insurance\it\FileData\Computers\DIPS\Change Control\[Justice League.xlsm]iForms'!A2<>"""",    '\\insurance\it\FileData\Computers\DIPS\Change Control\[Justice League.xlsm]iForms'!E2=""""),'\\insurance\it\FileData\Computers\DIPS\Change Control\[Justice League.xlsm]iForms'!A2,"""")"
Worksheets("All Release Items").Range("E2:E100").Value = WBNAME3

我正在尝试定义以下变量来缩短脚本但没有运气。

Justice = "=IF(AND('\\insurance\it\FileData\Computers\DIPS\Change Control\[Justice League.xlsm]"

请有人帮忙告诉我哪里出错了？

提前谢谢你。

【问题讨论】：

标签： vba excel

【解决方案1】：

我认为这就是您想要实现的目标；如果没有，请告诉我。

Justice = "'\\insurance\it\FileData\Computers\DIPS\Change Control\[Justice League.xlsm]iForms'"

WBNAME3 = "=IF(AND(" & Justice & "!A2<>"""",  " & Justice & "!E2=""""),!" & Justice & "!A2,"""")"
Worksheets("All Release Items").Range("E2:E100").Formula= WBNAME3

【讨论】：