엑셀 시트 합치기 매크로

여러 시트들의 내용을 하나의 시트로 합쳐주는 매크로를 작성해 드리겠습니다.

코드

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

사용법

  1. 엑셀 파일을 엽니다.
  2. Alt + F11 키를 눌러 VBA 창을 엽니다.
  3. 삽입 → 모듈 을 클릭하여 새 모듈을 만듭니다.
  4. 위 코드를 복사합니다.
  5. 새 모듈에 붙여넣습니다.
  6. F5 키를 눌러 매크로를 실행합니다.

위 코드는 엑셀의 VBA 언어를 이용하여 여러 시트들의 내용을 하나의 시트로 합쳐주는 매크로입니다. 이 매크로를 사용하면 여러 시트들을 일일이 복사하여 붙여넣지 않고도, 간단하게 하나의 시트로 합칠 수 있습니다.

먼저, 엑셀 파일을 엽니다. 그리고 Alt + F11 키를 눌러 VBA 창을 엽니다. 삽입 → 모듈 을 클릭하여 새 모듈을 만들어줍니다. 마지막으로 위 코드를 복사하여 새 모듈에 붙여넣고, F5 키를 눌러 매크로를 실행합니다. 이제 여러 시트들의 내용이 하나의 시트로 합쳐진 것을 확인할 수 있습니다.

Similar Posts