Excel 현재 워크북의 모든 워크시트에 대한 VBA 코드 병합

이 코드는 네트워크에서 유래한 것으로, 작자가 누군지 모른다.코드를 분석한 후에 주석을 추가하여 여러분께 공유했습니다. 여러분께 유용했으면 좋겠습니다.바로 복사하면 실행할 수 있습니다.

'#######################################################################################################
'    :
'      Excel      ；
'  Excel     sheet ，  sheet        ，     sheet      sheet 
'         sheet，      ，   sheet    sheet 
'              xls  ,               A1048576    A65536；
'#######################################################################################################

Sub               ()
Application.ScreenUpdating = False                  '     ，          
For j = 1 To Sheets.Count
   If Sheets(j).Name <> ActiveSheet.Name Then
       X = Range("A1048576").End(xlUp).Row + 1      '     ，             +1，   XLSX  ，     XLS    ，   A1048576   A65536
       Sheets(j).UsedRange.Copy Cells(X, 1)         '     ， sheet              X 1 
   End If
Next
Range("A1").Select                                  '     ，   sheet    ，    A1   
Application.ScreenUpdating = True					'     ，          

MsgBox "                  ！", vbInformation, "  "
End Sub