VBA脚本1004错误

我有一个代码，我与另一个代码合并。 他们自己的代码工作正常，但现在我遇到了1004运行时错误，我不知道为什么它给倒数第二行“设置= Varrange …”1004错误

Sub Simulate500k() Dim i As Integer Dim p As Integer Dim k As Integer Dim ROI As Integer Dim Nummer As Integer Dim NBC As Integer Dim Spalte As Integer Dim n As Integer Dim m As Integer Dim nblock As Integer Nummer = Worksheets("Control").Cells(10, 2).Value ROI = Worksheets("Control").Cells(9, 3).Value NBC = Worksheets("Control").Cells(10, 5).Value Spalte = Worksheets("Control").Cells(7, 5).Value n = Worksheets("Control").Cells(11, 5).Value nblock = Worksheets("Control").Cells(12, 5).Value For k = nblock To 260 Worksheets("table").Cells(ROI * 17 + 1, 4 + 12 * NBC).Copy Worksheets("Control").Cells(15, 2).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Worksheets("table").Cells(ROI * 17 + 1, 6 + 12 * NBC).Copy Worksheets("Control").Cells(6, 2).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False For m = 1 To 14 For i = 4 To 103 Worksheets("500k").Cells(5, 2).Copy Worksheets("500k").Cells(2, i).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Set varRangeselect1 = Worksheets("500k").Range(Cells(6, 2), Cells(106, 2)) Set varRangeSelect2 = Worksheets("500k").Range(Cells(6, i), Cells(106, i)) varRangeselect1.Copy varRangeSelect2.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False 

Answer 1

您需要为Range Cells()所有Range对象（包括Cells()指定亲子关系。 最简单的方法是用With块：

 With Worksheets("500k") Set varRangeselect1 = .Range(.Cells(6, 2), .Cells(106, 2)) Set varRangeSelect2 = .Range(.Cells(6, i), .Cells(106, i)) End with 

所以在With块内开始. 被分配到在和声中陈述的亲子关系。