以下行导致“应用程序定义或对象定义错误”:
Sheet1.Range("B4").Formula = "=""Plutonium Resale Revenues""!K19"
Excel 2010。
这对我有用:
Sheet1.Range("B4").Formula = "='Plutonium Resale Revenues'!K19"
如果要将公式从工作表 Plutonium Resale Revenues K19 复制到工作表 1 B4,请使用此选项。
Sheets("Plutonium Resale Revenues").Range("K19").Copy
Sheets("sheet1").Range("B4").PasteSpecial xlPasteFormulas
Application.CutCopyMode=False