如何使代码运行得更快更流畅些。先行谢谢

舒云天

Sub Test()
ReDim brr(1 To 31, 1 To 2)
Application.ScreenUpdating = False
Sheets("新事业资产负债表").Range("B5:C35").ClearContents
mypath = ThisWorkbook.Path
myfile = Dir(mypath & "\*.xls*")
Do While myfile <> ""
    If myfile <> ThisWorkbook.Name Then
    Set wb = GetObject(mypath & "\" & myfile)
    arr = wb.Sheets("新事业资产负债表").Range("B5:C35")
    For i = 1 To UBound(arr)
        For j = 1 To UBound(arr, 2)
           brr(i, j) = brr(i, j) + arr(i, j)
        Next
    Next
    wb.Close False
    End If
myfile = Dir
Loop
For k = 2 To 1
    brr(31, k) = ""
Next
Sheets("新事业资产负债表").Range("B5").Resize(UBound(brr, 1), UBound(brr, 2)) = brr
Application.ScreenUpdating = True
End Sub

grf1973

感觉很标准的代码，没有什么提升空间了。