Excel VBA中的范围“运行时错误”1004：“应用程序定义或对象定义的错误”
我已经为VBA编写了下面的代码（Excel 2015）。 我在Set Cell(i, j) = Sheets(c).Cells(Cell(i, j))得到了“运行时错误”1004：应用程序定义或对象定义的错误。 我试图重新定义“单元格”数组中的范围作为不同的工作表中相同的范围。
Dim c As Integer, i As Integer, j As Integer, k As Integer, l As Integer, box As Range, Cell(6 To 24, 3 To 5) As Range For i = 6 To 24 For j = 3 To 5 v = Sheets("Capture").Cells(i, j).Value For k = 1 To 376 For l = 1 To 20 If Sheets(1).Cells(k, l).Value = v Then Set box = Sheets(1).Cells(k, l) End If Next l Next k Set Cell(i, j) = box Next j Next i For c = 1 To 7 If Sheets("Capture").Cells(2, 2).Value = c Then For i = 6 To 24 For j = 3 To 5 ' Error: Application-defined or object-defined error Set Cell(i, j) = Sheets(c).Cells(Cell(i, j)) Sheets("Capture").Cells(i, j).Value = Cell(i, j).Value Next j Next i End If Next c
你需要改变：
Set Cell(i, j) = Sheets(c).Cells(Cell(i, j))
至：
Set Cell(i, j) = Sheets(c).Cells(i, j)