Sub Shcopy()Dim nRow&, R1%, Rs%, Ls%，定義變數R1 = 2，設定R1初始值為2Application.EnableEvents = False，將程式碼觸發的事件遮蔽Application.ScreenUpdating = False，將螢幕重新整理遮蔽For i = 2 To Sheets.Count，從第二個工作表迴圈至最後一個工作表With Sheets(i)，在第i個工作表中Rs = .UsedRange.Rows.Count + 1 - R1，設定Rs為工作表中已使用區域的行數+1-R1Ls = .UsedRange.Columns.Count，設定Ls為工作表中已使用區域的列數arr = .Range("a" & R1).Resize(Rs, Ls)，將從A2起往下到Rs行，往右到Ls列區域的資料裝入陣列arrRange("a65536").End(xlUp).Offset(1).Resize(Rs, Ls) = arr，將上述的arr所有內容顯示在目前表格的下面End With，結束sheets(i)的判斷和處理Next迴圈下一個iApplication.EnableEvents = True，啟用事件觸發Application.ScreenUpdating = True，啟用螢幕重新整理End Sub
Sub Shcopy()Dim nRow&, R1%, Rs%, Ls%，定義變數R1 = 2，設定R1初始值為2Application.EnableEvents = False，將程式碼觸發的事件遮蔽Application.ScreenUpdating = False，將螢幕重新整理遮蔽For i = 2 To Sheets.Count，從第二個工作表迴圈至最後一個工作表With Sheets(i)，在第i個工作表中Rs = .UsedRange.Rows.Count + 1 - R1，設定Rs為工作表中已使用區域的行數+1-R1Ls = .UsedRange.Columns.Count，設定Ls為工作表中已使用區域的列數arr = .Range("a" & R1).Resize(Rs, Ls)，將從A2起往下到Rs行，往右到Ls列區域的資料裝入陣列arrRange("a65536").End(xlUp).Offset(1).Resize(Rs, Ls) = arr，將上述的arr所有內容顯示在目前表格的下面End With，結束sheets(i)的判斷和處理Next迴圈下一個iApplication.EnableEvents = True，啟用事件觸發Application.ScreenUpdating = True，啟用螢幕重新整理End Sub