엑셀 VBA 각 시트의 내용 합치기 코드(매크로)

유튜브 채널

http://bit.ly/위드석 

모든 시트의 내용을 첫번째 시트에 가로로 모으기

Option Explicit  Sub SheetUnit()  Dim i As Integer  Dim ShtA As Worksheet  Dim rngB As Range    Set ShtA = Sheets(1)   For i = 2 To Sheets.Count    Set rngB = ShtA.Cells(1, Columns.Count).End(1).Offset(, 1)      Sheets(i).UsedRange.Copy rngB  Next i End Sub

모든 시트의 내용을 첫번째 시트에 세로로 모으기

Option Explicit  Sub SheetUnit()  Dim i As Integer  Dim ShtA As Worksheet  Dim rngB As Range  Set ShtA = Sheets(1)   For i = 2 To Sheets.Count    Set rngB = ShtA.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)      Sheets(i).UsedRange.Copy rngB  Next i End Sub

3번째 시트 부터 끝시트 까지 모두 2번째 시트에 세로로 모으기 (첫시트에 2번째 시트 내용 함수식으로 연결하여 작업 가능)

Option Explicit  Sub SheetUnit()   Dim i As Integer   Dim ShtA As Worksheet   Dim rngB As Range   Set ShtA = Sheets(1)    For i = 3 To Sheets.Count     Set rngB = ShtA.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)       Sheets(i).UsedRange.Copy rngB   Next i  End Sub