不能复制公式？

Question

我无法操作代码，除非它说明子程序或函数未在我试图粘贴到第 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"")"

不能复制公式？

Can't copy formula?

vba

formula