代码之家 › 专栏 › 技术社区 › Matt Taylor

无法将公式添加到单元格中

vba excel

0

Matt Taylor · 技术社区 · 6 年前

公式未添加到电子表格中。

我环顾四周,尝试了许多对其他人有用的解决方案,但我的直接窗口仍在说 False .

Range("C3:C" & Cells(Rows.Count, "A").End(xlUp).Row).Formula = 
"=IFERROR(INDEX(Print!$A$3:$A$999,MATCH(A3,Print!$B$3:$B$999,0)),"")"

一个简单公式上的相同问题

Range("D3:D" & Cells(Rows.Count, "A").End(xlUp).Row).Formula = 
"=IF(A3 <> "",RIGHT(A3,4),"")"

脚本运行,但在“c3”或“d3”中没有发生任何事情。我哪里出错了? 最后,如果一个单元格有任何内容,我希望公式在单元格C和D中。

注意:如果将它们直接粘贴到单元格中,这两种方法都有效。

1 回复 | 直到 6 年前

1

Allan 6 年前

如果您希望忽略双引号的功能并将其作为文本,请向其添加另一个双引号。

这应该有效:

Range("D3:D" & Cells(Rows.Count, "A").End(xlUp).Row).Formula = "=IF(A3 <> """",RIGHT(A3,4),"""")"

Range("C3:C" & Cells(Rows.Count, "A").End(xlUp).Row).Formula = "=IFERROR(INDEX(Print!$A$3:$A$999,MATCH(A3,Print!$B$3:$B$999,0)),"""")"