시트(sheet) 합치기

여러개의 sheet 가 있을 경우 하나의 시트에 모으고 싶다면 아래와 같이 진행하면 됩니다.

1. 첫번째 시트 하단의 시트 이름 (예 Sheet 1)에 마우스를 올려놓고 오른쪽 버튼 클릭
나오는 메뉴중 "코드 보기"를 선택

2. 코드창에 아래의 코드를 넣는다.

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. 메뉴 중 실행(R) - 사용자 정의 폼 실행