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

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

  •  0
  • Matt Taylor  · 技术社区  · 5 年前

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

    我环顾四周,尝试了许多对其他人有用的解决方案,但我的直接窗口仍在说 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 回复  |  直到 5 年前
        1
  •  1
  •   Allan    5 年前

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

    这应该有效:

    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)),"""")"