엑셀 시트 병합 메크로

회사를 옮기 후 엑셀을 사용 하는 업무가 많아졌다

데이터를 분리 후 다시 통합을 해야 하는 작업을 해야하는데. .

시트만 80여개가 넘는다 그래서 

엑셀 시트 병합 하는 메크로를 자주 사용하게 되는데 

할때 마다 검색을 해봐야 해서 그냥 내 블로그에 자료를 올린다. 

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

일단 이렇게 적어 놓기만 하고 나중에 시간이 되면, 분석을 한번 해봐야 겠다. 

[출처] 엑셀 시트 합치기 - 매크로 이용하기|작성자 심씨네