无法复制公式？

Question

我无法操作代码而没有说明子公式或功能未在公式I中定义，而是试图粘贴列v。

Sub SEALANTSCHEDULIZER()
'    1. Unhide All Columns
Columns.EntireColumn.Hidden = False

'    2. Clear All color highlights
ActiveSheet.UsedRange.Interior.ColorIndex = 0

'    3. Drag formulas in all columns down to last row (if necessary) – use column A (ID) as row count
LastRowColumnA = cell(Rows.count, 1).End(xlUp).Row
Range("V2:V" & LastRowColumnA).Formula = "=IF(OR(W2="Yes", AE2="Yes"), "Yes", "No")"
End Sub

Answer 1

您需要将文本字符串周围的"加倍。

"=IF(OR(W2=""Yes"", AE2=""Yes""), ""Yes"", ""No"")"