求助这个excel代码解析，每一行都是什么意思？

Sub Shcopy()
Dim nRow&, R1%, Rs%, Ls%
R1 = 2
Application.EnableEvents = False
Application.ScreenUpdating = False
For i = 2 To Sheets.Count
With Sheets(i)
Rs = .UsedRange.Rows.Count + 1 - R1
Ls = .UsedRange.Columns.Count
arr = .Range("a" & R1).Resize(Rs, Ls)
Range("a65536").End(xlUp).Offset(1).Resize(Rs, Ls) = arr
End With
Next
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub

Sub Shcopy()
Dim nRow&, R1%, Rs%, Ls%，定义变量
R1 = 2，设定R1初始值为2
Application.EnableEvents = False，将代码触发的事件屏蔽
Application.ScreenUpdating = False，将屏幕刷新屏蔽
For i = 2 To Sheets.Count，从第二个工作表循环至最后一个工作表
With Sheets(i)，在第i个工作表中
Rs = .UsedRange.Rows.Count + 1 - R1，设定Rs为工作表中已使用区域的行数+1-R1
Ls = .UsedRange.Columns.Count，设定Ls为工作表中已使用区域的列数
arr = .Range("a" & R1).Resize(Rs, Ls)，将从A2起往下到Rs行，往右到Ls列区域的数据装入数组arr
Range("a65536").End(xlUp).Offset(1).Resize(Rs, Ls) = arr，将上述的arr所有内容显示在目前表格的下面
End With，结束sheets(i)的判断和处理
Next循环下一个i
Application.EnableEvents = True，启用事件触发
Application.ScreenUpdating = True，启用屏幕刷新
End Sub

希望能帮到你，你结合运行效果就可以看了