将公式复制/粘贴到另一个工作表

Question

我可能很愚蠢，但我找不到一种简单的方法将一系列公式从 ws1 复制/粘贴到 ws < / em> 在同一工作簿中。我想避免沉重且不合适的Range.select select.copy Sheet("X").select ...故事。

Set wb = Application.Workbooks("TT.xlsm")
Set ws = wb.Sheets("B")
Set ws1 = wb.Sheets("A")
<-----more code------->
 Sheets("A").Range(Cells(19, 1), Cells(41, 7)).Copy _
 Destination:=Sheets("B").Range(Cells(19, 1), Cells(41, 7))

返回错误。如果我在With wb [code] End With。

之间捕获表达式，则相同

 ws1.Range(Cells(19, 1), Cells(41, 7)).Formula = ws.Range(Cells(19, 1), Cells(41, 7)).Formula

返回Range方法失败，With wb或不。{/ p> 我必须遗漏一些东西，但看不出来的东西！谢谢你的光明。

Answer 1

您需要限定单元格对象（等式右侧）

对于以下内容，您需要激活ws1（Sheets("A")）

ws1.Activate
ws1.Range(Cells(19, 1), Cells(41, 7)).Formula = ws.Range(ws.Cells(19, 1), ws.Cells(41, 7)).Formula