|
几千个工作簿内对应单元格相加,提示下标越界。2465行,56列。
Sub 123()
Dim arr, brr, crr
Dim a, n, b As String: Dim i, j As Integer
a = Dir(ThisWorkbook.Path & "\*.csv")
n = ThisWorkbook.Name
b = ThisWorkbook.Path & "\" & a
With GetObject(b)
brr = .Sheets(1).UsedRange
.Sheets(1).Copy Workbooks(n).Sheets(1)
.Close False
End With
Workbooks(n).Sheets(1).Name = "求和"
a = Dir
ReDim crr(1 To UBound(brr), 1 To UBound(brr))
Do While a <> ""
b = ThisWorkbook.Path & "\" & a
With GetObject(b)
arr = .Sheets(1).UsedRange
brr = Workbooks(n).Sheets(1).UsedRange
For i = 1 To UBound(arr)
For j = 1 To UBound(arr)
crr(i, j) = brr(i, j) + arr(i, j) 这里提示下标越界
Next
Next
.Close False
End With
Workbooks(n).Sheets(1).Range("A1").Resize(UBound(arr), UBound(arr)) = crr
a = Dir
Loop
End Sub
求教该如何修改?
|
|