求助代码讲解：行求和，列求和

皮皮坦克

求详细讲解，行4.5.8.9.12，另4可以省略吗？
1 Option Explicit
2 Sub 求和()
3  Dim arr, i, j
4  arr = [a1].CurrentRegion
5  arr = [a1].Resize(UBound(arr, 1) + 1,  UBound(arr, 2) + 1)
6  For j = 2 To UBound(arr, 2) - 1
7   For i = 2 To UBound(arr, 1) - 1
8    arr(UBound(arr, 1), j) =  arr(UBound(arr, 1), j) + arr(i, j)
9  arr(i, UBound(arr, 2)) = arr(i,   UBound(arr, 2)) + arr(i, j)
10  Next i, j
11  arr(UBound(arr, 1), 1) = "合计": arr(1, UBound(arr, 2)) = "合计"
12  [a1].Resize(UBound(arr, 1), UBound(arr, 2)) = arr
13 End Sub

獨一無2

4  arr = [a1].CurrentRegion
-->选中a1后按住Ctrl+A所选中的区域，不能省略
5  arr = [a1].Resize(UBound(arr, 1) + 1,  UBound(arr, 2) + 1)
-->调整该区域，使得行列各增加1
6          For j = 2 To UBound(arr, 2) - 1
7                   For i = 2 To UBound(arr, 1) - 1
8                   arr(UBound(arr, 1), j) =  arr(UBound(arr, 1), j) + arr(i, j)  -->对应列尾值加当前单元格的值
9          arr(i, UBound(arr, 2)) = arr(i,   UBound(arr, 2)) + arr(i, j) -->对应行尾值加当前单元格的值
10  Next i, j
11  arr(UBound(arr, 1), 1) = "合计": arr(1, UBound(arr, 2)) = "合计"
12  [a1].Resize(UBound(arr, 1), UBound(arr, 2)) = arr
-->将数组的值写到单元格内