Excel에서 큰 표를 여러 개의 작은 표로 나누는 방법은 무엇입니까?

여러 열과 수백 또는 수천 개의 행을 포함하는 큰 Excel 표가 있는 경우 이를 더 작고 관리하기 쉬운 표로 나누고 싶을 수 있습니다. 예를 들어, 특정 열 값에 따라 데이터를 분리하거나 고정된 행 수로 나눌 필요가 있을 수 있습니다. 이 튜토리얼에서는 이러한 작업을 효율적으로 수행하는 단계별 방법을 제공합니다.

주 테이블		열 값에 따라 표를 여러 개의 표로 나누기	행 수에 따라 표를 여러 개의 표로 나누기

VBA 코드를 사용하여 열 값에 따라 큰 표를 여러 개의 표로 나누기

VBA 코드를 사용하여 특정 행 수에 따라 큰 표를 여러 개의 표로 나누기

Kutools for Excel을 사용하여 열 값 또는 행 수에 따라 큰 표를 여러 개의 표로 나누기

VBA 코드를 사용하여 열 값에 따라 큰 표를 여러 개의 표로 나누기

특정 열 값에 따라 이 큰 표를 여러 개의 표로 나누려면 다음 VBA 코드가 도움이 될 수 있습니다. 아래와 같이 진행하세요:

1. "ALT" + "F11" 키를 눌러 "Microsoft Visual Basic for Applications" 창을 엽니다.

2. "삽입" > "모듈"을 클릭하고 "모듈" 창에 다음 코드를 붙여넣습니다.

VBA 코드: 키 열을 기준으로 큰 표를 여러 개의 표로 나누기:

Sub Splitdatabycol()
'by Extendoffice
Dim lr As Long
Dim ws As Worksheet
Dim vcol, i As Integer
Dim icol As Long
Dim myarr As Variant
Dim title As String
Dim titlerow As Integer
Dim xTRg As Range
Dim xVRg As Range
Dim xWSTRg As Worksheet
On Error Resume Next
Set xTRg = Application.InputBox("Please select the header rows:", "Kutools for Excel", "", Type:=8)
If TypeName(xTRg) = "Nothing" Then Exit Sub
Set xVRg = Application.InputBox("Please select the column you want to split data based on:", "Kutools for Excel", "", Type:=8)
If TypeName(xVRg) = "Nothing" Then Exit Sub
vcol = xVRg.Column
Set ws = xTRg.Worksheet
lr = ws.Cells(ws.Rows.Count, vcol).End(xlUp).Row
title = xTRg.AddressLocal
titlerow = xTRg.Cells(1).Row
icol = ws.Columns.Count
ws.Cells(1, icol) = "Unique"
Application.DisplayAlerts = False
If Not Evaluate("=ISREF('xTRgWs_Sheet!A1')") Then
Sheets.Add(after:=Worksheets(Worksheets.Count)).Name = "xTRgWs_Sheet"
Else
Sheets("xTRgWs_Sheet").Delete
Sheets.Add(after:=Worksheets(Worksheets.Count)).Name = "xTRgWs_Sheet"
End If
Set xWSTRg = Sheets("xTRgWs_Sheet")
xTRg.Copy
xWSTRg.Paste Destination:=xWSTRg.Range("A1")
ws.Activate
For i = (titlerow + xTRg.Rows.Count) To lr
On Error Resume Next
If ws.Cells(i, vcol) <> "" And Application.WorksheetFunction.Match(ws.Cells(i, vcol), ws.Columns(icol), 0) = 0 Then
ws.Cells(ws.Rows.Count, icol).End(xlUp).Offset(1) = ws.Cells(i, vcol)
End If
Next
myarr = Application.WorksheetFunction.Transpose(ws.Columns(icol).SpecialCells(xlCellTypeConstants))
ws.Columns(icol).Clear
For i = 2 To UBound(myarr)
ws.Range(title).AutoFilter field:=vcol, Criteria1:=myarr(i) & ""
If Not Evaluate("=ISREF('" & myarr(i) & "'!A1)") Then
Sheets.Add(after:=Worksheets(Worksheets.Count)).Name = myarr(i) & ""
Else
Sheets(myarr(i) & "").Move after:=Worksheets(Worksheets.Count)
End If
xWSTRg.Range(title).Copy
Sheets(myarr(i) & "").Paste Destination:=Sheets(myarr(i) & "").Range("A1")
ws.Range("A" & (titlerow + xTRg.Rows.Count) & ":A" & lr).EntireRow.Copy Sheets(myarr(i) & "").Range("A" & (titlerow + xTRg.Rows.Count))
Sheets(myarr(i) & "").Columns.AutoFit
Next
xWSTRg.Delete
ws.AutoFilterMode = False
ws.Activate
Application.DisplayAlerts = True
End Sub

3. 코드를 붙여넣은 후, 코드를 실행하기 위해 "F5" 키를 누르면 프롬프트 상자가 나타납니다. 데이터에서 헤더 행을 선택하세요. 스크린샷 참고:

4. 그런 다음 "확인"을 클릭하면 다른 대화 상자가 나타납니다. 표를 분할할 열 데이터를 선택하세요. 스크린샷 참고:

5. "확인"을 클릭합니다. 이제 큰 표가 열 값에 따라 여러 워크시트로 분할되었습니다. 새로운 워크시트는 마스터 시트 뒤에 위치하며, 열 값을 이름으로 사용하여 명명됩니다. 스크린샷 참고:

VBA 코드를 사용하여 특정 행 수에 따라 큰 표를 여러 개의 표로 나누기

행 수에 따라 표를 여러 개의 표로 나눠야 하는 경우, 다음 VBA 코드가 도움이 될 수 있습니다.

1. "ALT" + "F11" 키를 눌러 "Microsoft Visual Basic for Applications" 창을 엽니다.

2. "삽입" > "모듈"을 클릭하고 "모듈" 창에 다음 코드를 붙여넣습니다.

VBA 코드: 행 수에 따라 큰 표를 여러 개의 표로 나누기:

Sub Splitdatabyrows()
'Updated by Extendoffice 
Dim WorkRng As Range
Dim xRow As Range
Dim SplitRow As Integer
Dim xWs As Worksheet
Dim xTRg As Range
Dim xNTRg As Range
Dim xIER
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set xTRg = Application.InputBox("Please select the header row:", xTitleId, "", Type:=8)
If TypeName(xTRg) = "Nothing" Then Exit Sub
Set WorkRng = Application.InputBox("Please select the data range(exclude the header row):", xTitleId, WorkRng.Address, Type:=8)
If TypeName(WorkRng) = "Nothing" Then Exit Sub
SplitRow = Application.InputBox("Split Row Num", xTitleId, Type:=1)
If SplitRow = 0 Then Exit Sub
Set xWs = WorkRng.Parent
Set xRow = WorkRng.Rows(1)
xIER = WorkRng.Rows.Count
xIER = WorkRng.Row + xIER - 1
Application.ScreenUpdating = False
For i = 1 To WorkRng.Rows.Count Step SplitRow
    resizeCount = SplitRow
    If (xIER - xRow.Row + 1) < SplitRow Then
        resizeCount = (xIER - xRow.Row + 1)
    End If
    xRow.Resize(resizeCount).Copy
    Set xWs = Application.Worksheets.Add(after:=Application.Worksheets(Application.Worksheets.Count))
    If xIER > (xRow.Row + SplitRow - 1) Then
        xWs.Name = xRow.Row & " - " & (xRow.Row + SplitRow - 1)
    ElseIf xIER = xRow.Row Then
        xWs.Name = xRow.Row
    Else
        xWs.Name = xRow.Row & " - " & xIER
    End If
    Application.ActiveSheet.Range("A1").PasteSpecial
    Set xNTRg = Application.ActiveSheet.Range("A1")
    xTRg.Copy
    xNTRg.Insert
    Set xRow = xRow.Offset(SplitRow)
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

3. 그런 다음 "F5" 키를 누르면 팝업 대화 상자에서 헤더 행을 선택하세요. 스크린샷 참고:

4. 그런 다음 "확인"을 클릭하고 두 번째 프롬프트 상자에서 행 수로 분할하려는 데이터 범위를 선택하세요. 스크린샷 참고:

5. 계속해서 "확인" 버튼을 클릭하고 세 번째 프롬프트 상자에서 분할할 행 수를 입력하세요. 스크린샷 참고:

6. 그런 다음 "확인" 버튼을 클릭하면 마스터 표가 아래 스크린샷과 같이 행 수에 따라 여러 워크시트로 분할됩니다:

Kutools for Excel을 사용하여 열 값 또는 행 수에 따라 큰 표를 여러 개의 표로 나누기

위의 코드는 대부분의 사용자에게 어려울 수 있습니다. 여기서는 "Kutools for Excel"의 놀라운 기능인 "데이터 분할"을 소개하겠습니다. 이 유틸리티를 사용하면 키 열 또는 행 수에 따라 큰 표를 빠르고 쉽게 여러 개의 표로 나눌 수 있습니다.

1. 분할하려는 데이터 범위를 선택한 다음, "Kutools Plus" > "데이터 분할"을 클릭하세요. 스크린샷 참고:

2. "다중 워크시트로 데이터 분할" 대화 상자에서 필요한 설정을 지정하세요:

(1.) "분할 기준" 섹션에서 "특정 열" 또는 "고정 값"을 선택하세요;

(2.) "규칙" 드롭다운 목록에서 새 워크시트 이름을 지정하고 접두사 또는 접미사를 시트 이름에 추가할 수도 있습니다.

3. 그런 다음 "확인" 버튼을 클릭하면 이제 큰 표가 새 워크북에 여러 개의 작은 표로 분할됩니다. 스크린샷 참고:

열 값에 따라 표를 여러 개의 표로 나누기	행 수에 따라 표를 여러 개의 표로 나누기

관련 기사 더 보기: