Excel 2010 VBA - Скопировать формулу (с текстом) в последнюю строку

Question

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

Вот код, который я нашел. Он работает хорошо, но формула мне нужно скопировать содержимое «Текст», и рутина не хочет работать. Любая идея о том, что мне делать?

Sub Test() 
    Dim lastRow As Long 

    With Sheets("Sheet1") 
     lastRow = .Cells(.Rows.Count, "C").End(xlUp).Row 
     .Range("y2:y" & lastRow).Formula = "=IFERROR(VLOOKUP(K2,Vlook!$C$2:$D$17,2,FALSE),"FOREIGN")" ' Not Working - The "Text" becomes red in the VBA Editor 

     ' .Range("z2:z" & lastRow).Formula = " =VLOOKUP(C2,$U$2:$V$10,2,0)" 'Works well with this formula 

    End With 

End Sub 

Answer 1

Для того, чтобы включить двойные кавычки внутри строки, вам необходимо ввести двойную кавычку, как это:

Text = "Here is a text ""TEXT"" enclosed in quotes"