Невозможно добавить формулу в ячейку

Question

Формула не добавляется в электронную таблицу.

Я огляделся по сторонам и перепробовал множество решений, которые работали для других, но в моем ближайшем окне все еще говорится 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, если в ячейке A есть что-либо.

Примечание. Обе эти операции работают, если я вставлю их непосредственно в ячейки.

Answer 1

Если вы хотите игнорировать функцию двойных кавычек и использовать ее как текст, добавьте к ней еще две двойные кавычки.

Это должно работать:

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