我可能很愚蠢，但是我找不到在同一工作簿中复制/粘贴从ws1到ws的公式范围的简单方法。我想避免沉重而不合适的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
返回范围方法是否失败With wb。
我一定想念什么，但是看不到！谢谢你的光。
您需要限定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
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句