VBA Excel将公式范围从一个工作表复制到另一个工作表

我正在试图从一个工作表复制几个范围与公式从另一个工作表。 随着“计划”范围的内容更改，它们被复制到“Data_Design”工作表上的不同范围。 我有间歇性的代码，但我不能确定它为什么不稳定和可重复。 我已经尝试了几种不同的代码，但无济于事。 当我得到运行时错误（1004）时，它在代码的第一行等同于范围。 任何想法为什么1004？

Sub Design_Save() Dim A, i, D, Ans As Integer Redo: D = Application.InputBox("Enter Design Number" & vbNewLine & vbNewLine & "Note: Default value = current stage number", "Design Number Assignment", Worksheets("Job").Cells(10, 3).Value, Type:=1) For i = 2 To 101 ' Revise the 500 to include all of your values A = Worksheets("Data_Design").Cells(i, 1).Value If A = D Then Ans = MsgBox("Design Number " & D & " already exists." & vbNewLine & vbNewLine & "Overwrite exiting design?", vbYesNo + vbQuestion, "Overwrite Design") If Ans = vbYes Then Save_Design (D) Else GoTo Redo End If Else Exit Sub End If Next i End Sub Sub Save_Design(A As Integer) Dim r1, r2 As Integer Dim dd1, dd2, dd3, dd4, dd101, dd102, dd103, dd104 As Range If A = 0 Then r1 = 1 Else r1 = A * 100 End If r2 = r1 + 49 Worksheets("Data_Design").Range(Cells(r1, 2), Cells(r2, 6)).Formula = Worksheets("Schedule").Range("C5:G54").Formula Worksheets("Data_Design").Range(Cells(r1, 7), Cells(r2, 8)).Formula = Worksheets("Schedule").Range("I5:J54").Formula Worksheets("Data_Design").Range(Cells(r1, 9), Cells(r2, 23)).Formula = Worksheets("Schedule").Range("L5:Z54").Formula Worksheets("Data_Design").Range(Cells(r1, 24), Cells(r1, 38)).Formula = Worksheets("Schedule").Range("L3:Z3").Formula End Sub 

Answer 1

您需要将适当的亲子关系分配给Cells()范围对象。 尝试这个

 With Worksheets("Data_Design") .Range(.Cells(r1, 2), .Cells(r2, 6)).Formula = Worksheets("Schedule").Range("C5:G54").Formula .Range(.Cells(r1, 7), .Cells(r2, 8)).Formula = Worksheets("Schedule").Range("I5:J54").Formula .Range(.Cells(r1, 9), .Cells(r2, 23)).Formula = Worksheets("Schedule").Range("L5:Z54").Formula .Range(.Cells(r1, 24), .Cells(r1, 38)).Formula = Worksheets("Schedule").Range("L3:Z3").Formula End With 

使用with块使得它以a开始. 被分配给带有块的血统。