范围单元格抛出“RT错误1004”

我试图使用一个variables来定义一个范围,当试图获得几百个股票的CoVarmatrix,我用下面的代码。 但是,系统会引发RT错误1004。

Sub CoVar_Calc() Dim i As Integer Dim j As Integer Dim ArrA As Range Dim ArrB As Range i = 1 j = 1 For i = 1 To 487 ArrA = Range(Sheets(2).Cells(7 + i, 2), Sheets(2).Cells(7 + i, 254)) For j = 1 To 487 ArrB = Range(Sheets(2).Cells(7 + j, 2), Sheets(2).Cells(7 + j, 254)) Sheets(3).Cells(j + 1, i + 1) = Application.WorksheetFunction. _ CoVar(ArrA, ArrB) Next j Next i End Sub 

当我第一次运行使用下面的代码

 For i = 1 To 487 Set ArrA = Sheets(2).Range(Sheets(2).Cells(7 + i, 2), Sheets(2).Cells(7 + i, 254)) For j = 1 To 487 Set ArrB = Sheets(2).Range(Sheets(2).Cells(7 + j, 2), Sheets(2).Cells(7 + j, 254)) Sheets(3).Cells(j + 1, i + 1) = _ Application.WorksheetFunction. _ CoVar(ArrA, ArrB) Next j Next i 

事情都很好,但我第二次尝试运行它给了我相同的RT 1004错误消息。 在两次运行中,我没有对工作簿做太多改动,但是我打开了一些其他启用vba的工作簿。