vba - 将包含公式的范围复制/粘贴到另一个工作表

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 方法失败，是否使用 wb。

我一定错过了一些东西，但看不到什么!谢谢你的光。

Answer 1

您需要限定 Cells 对象(等式右侧)

对于以下内容，您需要激活 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