각 워크 시트에 동일한 구조의 데이터가 포함 된 통합 문서가있는 경우 여러 워크 시트를 하나의 큰 워크 시트로 결합하는 방법에 관심이있을 수 있습니다.

압축을 수행하는 개념은 다소 쉽습니다. 두 번째 및 후속 워크 시트의 데이터를 첫 번째 워크 시트의 첫 번째 빈 행으로 복사하기 만하면됩니다. Excel에는이 작업을 자동으로 수행 할 수있는 도구가 포함되어 있지 않지만 매크로에 적합합니다. 그러나 압축하려는 각 워크 시트의 구조는 동일해야합니다.

다음 매크로는 모든 워크 시트를 단계별로 실행하고 데이터를 통합 문서의 시작 부분에 추가하는 새 워크 시트에 결합합니다.

Sub Combine()

Dim J As Integer     Dim s As Worksheet

On Error Resume Next     Sheets(1).Select     Worksheets.Add ' add a sheet in first place     Sheets(1).Name = "Combined"



' copy headings     Sheets(2).Activate     Range("A1").EntireRow.Select     Selection.Copy Destination:=Sheets(1).Range("A1")



For Each s In ActiveWorkbook.Sheets         If s.Name <> "Combined" Then             Application.GoTo Sheets(s.Name).[a1]

Selection.CurrentRegion.Select             ' Don't copy the headings             Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select             Selection.Copy Destination:=Sheets("Combined"). _               Cells(Rows.Count, 1).End(xlUp)(2)

End If     Next End Sub

매크로가 완료되면 통합 문서의 첫 번째 시트 인 Combined에 다른 워크 시트의 모든 데이터가 포함됩니다. 다른 워크 시트는 변경되지 않습니다.

_ 참고 : _

이 페이지 (또는 ExcelTips 사이트의 다른 페이지)에 설명 된 매크로를 사용하는 방법을 알고 싶다면 유용한 정보가 포함 된 특별 페이지를 준비했습니다.

link : / excelribbon-ExcelTipsMacros [새 브라우저 탭에서 특별 페이지를 열려면 여기를 클릭하세요].

_ExcelTips_는 비용 효율적인 Microsoft Excel 교육을위한 소스입니다.

이 팁 (8884)은 Office 365의 Microsoft Excel 2007, 2010, 2013, 2016, 2019 및 Excel에 적용됩니다. 여기에서 Excel의 이전 메뉴 인터페이스에 대한이 팁 버전을 찾을 수 있습니다.

link : / excel-Condensing_Multiple_Worksheets_Into_One [여러 워크 시트를 하나로 압축].