엑셀 시트별 내용 합치기 > Etc

• 목록

VBA코드

--------------------------

Sub sheetMerge()

Dim i As Integer

Dim sht As Worksheet

Dim rng As Range

Set sht = Sheets(1)

For i = 2 To Sheets.Count

Set rng = sht.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)

Sheets(i).UsedRange.Copy rng

Next i

End Sub
--------------------------

매크로 실행