烦请请帮忙解析下这段代码的含义

manman31

各位好，
麻烦帮忙解析下下面各段代码的含义，好让我学习下，谢谢。



Sub abc123()
Dim a
Dim arr, brr(1 To 10000, 1 To 5)
arr = Array("b1", "b2", "a5", "b5", "c5")
Application.ScreenUpdating = False
For Each ws In Worksheets
  If ws.Name <> "汇总" Then
     i = i + 1
     j = 0
     For Each a In arr
        j = j + 1
        brr(i, j) = ws.Range(a)
     Next
   End If
Next
Worksheets("汇总").[a2].Resize(i, 5) = brr
Application.ScreenUpdating = True
MsgBox "OK!", vbInformation
End Sub

abc123281

新同学你好  
   代码是我写的
   首先 看到你本帖的求助  说明你有学习vba编程的兴趣  很好的  
   在这儿几乎没有老师会为你写代码的含义  因为这是很无奈的
   你需要有一定的vba基础 你需要懂得  循环  数组  累加 这些基本常识  需要学会调试代码学习
   所以 建议从基础学习  有了一定的基础  自然就明白了