Вставить формулу поиска с помощью макроса

Question

Я пытаюсь вставить эту формулу, используя макрос в ячейке C2, но продолжаю получать неопределенную ошибку приложения во время выполнения для следующего оператора.

Оператор:

Worksheets ("Dup Warnings") .Range ("C2"). Formula = "= IF (A2 =" "," ", IF (IFERROR (VLOOKUP (A2, 'Appt Type Mapping'! A: J, 2, FALSE)," ") ="" New "", Sheet1! $ G $ 2, IF (IFERROR (VLOOKUP (A2, 'Appt Type Mapping'! A: J, 2, FALSE), "") = "" Review "", sheet1! $ G $ 3, IF (IFERROR (VLOOKUP (A2, 'New Appt Type Mapping'! A: J, 2, FALSE), "") = "" New "", Sheet1! $ G $ 2, IF (IFERROR (VLOOKUP (A2, ')Новое отображение типов приложений '! A: J, 2, FALSE), "") = "" Review "", Sheet1! $ G $ 3, ""))))) "

что-то не так сформула?

Answer 1

Ваши двойные кавычки в формуле должны быть удвоены:

Worksheets("Dup Warnings").Range("C2").Formula = "=IF(A2="""","""",IF(IFERROR(VLOOKUP(A2,'Appt Type Mapping'!A:J,2,FALSE),"""")=""New"",Sheet1!$G$2,IF(IFERROR(VLOOKUP(A2,'Appt Type Mapping'!A:J,2,FALSE),"""")=""Review"",sheet1!$G$3,IF(IFERROR(VLOOKUP(A2,'New Appt Type Mapping'!A:J,2,FALSE),"""")=""New"",Sheet1!$G$2,IF(IFERROR(VLOOKUP(A2,'New Appt Type Mapping'!A:J,2,FALSE),"""")=""Review"",Sheet1!$G$3,"""")))))"

Answer 2

Вы удвоили все кавычки вокруг текстовых строковых литералов, но не для строк нулевой длины, используемых в качестве значений по умолчанию iferror.

Вместо того, чтобы удваивать "" в """" для строк нулевой длины, вы можете выбрать TEXT (,) `, который дает тот же результат и может быть менее запутанным для глаз.

Worksheets("Dup Warnings").Range("C2").Formula = _
  "=IF(A2=text(,), text(,), IF(IFERROR(VLOOKUP(A2, 'Appt Type Mapping'!A:J, 2, FALSE), text(,)) = ""New"", Sheet1!$G$2, IF(IFERROR(VLOOKUP(A2,'Appt Type Mapping'!A:J,2,FALSE), text(,))=""Review"", sheet1!$G$3, IF(IFERROR(VLOOKUP(A2,'New Appt Type Mapping'!A:J,2,FALSE), text(,))=""New"", Sheet1!$G$2, IF(IFERROR(VLOOKUP(A2,'New Appt Type Mapping'!A:J,2,FALSE), text(,))=""Review"",Sheet1!$G$3, text(,))))))"