Как встроить переменную в формулу ячейки

Question

Вот мой код:

For i = Z To lastRow
Range("$A" & i).Select
ActiveCell.FormulaRC1C = "='Sheet1'!$A" & i
etc, etc.

В последней строке возникла проблема (очевидно), потому что я не могу понять, какие цитаты нужны.Как мне отформатировать двойные кавычки?Есть ли лучший способ сказать это?

Answer 1

Я не думаю, что кавычки являются проблемой (они выглядят хорошо).Вы используете метод FormulaR1C1, который ожидает, что адрес будет в нотации R1C1 (например, R3C4), тогда как вы предоставляете адрес, например, в C4.

Попробуйте использовать .Formula

Answer 2

Нет читаемого способа вставить кавычки в код, который генерирует строку. Вы можете попробовать тройные кавычки - "" "- и удачи в отладке.

Я склонен использовать функцию chr (), зная, что символ 34 - двойная кавычка:

strQ = "He said: " & chr(34) & "It's a dead parrot" & chr(34) 
strQ = strQ  & ", and explained: "  & "It has ceased to be" & chr(34)  & "."


Debug.Print strQ

Объединит эту строку:

Он сказал: «Это мертвый попугай» и объяснил: «Он перестал быть».