엑셀 시트 합치기 매크로
여러 시트들의 내용을 하나의 시트로 합쳐주는 매크로를 작성해 드리겠습니다.
코드
Sub CombineSheets()
Dim j As Integer
On Error Resume Next
Sheets(1).Select
Worksheets.Add
Sheets(1).Name = "Combined"
Sheets(2).Activate
Range("A1").EntireRow.Select
Selection.Copy Destination:=Sheets(1).Range("A1")
For j = 2 To Sheets.Count
Sheets(j).Activate
Range("A1").Select
Selection.CurrentRegion.Select
Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select
Selection.Copy Destination:=Sheets(1).Range("A" & Rows.Count).End(xlUp)(2)
Next
End Sub
사용법
- 엑셀 파일을 엽니다.
- Alt + F11 키를 눌러 VBA 창을 엽니다.
- 삽입 → 모듈 을 클릭하여 새 모듈을 만듭니다.
- 위 코드를 복사합니다.
- 새 모듈에 붙여넣습니다.
- F5 키를 눌러 매크로를 실행합니다.
위 코드는 엑셀의 VBA 언어를 이용하여 여러 시트들의 내용을 하나의 시트로 합쳐주는 매크로입니다. 이 매크로를 사용하면 여러 시트들을 일일이 복사하여 붙여넣지 않고도, 간단하게 하나의 시트로 합칠 수 있습니다.
먼저, 엑셀 파일을 엽니다. 그리고 Alt + F11 키를 눌러 VBA 창을 엽니다. 삽입 → 모듈 을 클릭하여 새 모듈을 만들어줍니다. 마지막으로 위 코드를 복사하여 새 모듈에 붙여넣고, F5 키를 눌러 매크로를 실행합니다. 이제 여러 시트들의 내용이 하나의 시트로 합쳐진 것을 확인할 수 있습니다.