행 개수에 따라 데이터를 여러 워크시트로 분할하기

특정 행 개수를 기준으로 대규모 데이터 범위를 여러 Excel 워크시트로 효율적으로 분할하면 데이터 관리가 간소화될 수 있습니다. 예를 들어, 데이터 세트를 5행마다 여러 시트로 분할하면 더 쉽게 관리하고 정리할 수 있습니다. 이 가이드에서는 이러한 작업을 신속하고 쉽게 수행하는 두 가지 실용적인 방법을 제공합니다.

VBA 코드를 사용하여 행 개수에 따라 데이터를 여러 워크시트로 분할하기

Kutools for Excel을 사용하여 행 개수에 따라 데이터를 여러 워크시트로 분할하기

VBA 코드를 사용하여 행 개수에 따라 데이터를 여러 워크시트로 분할하기

다음 VBA 코드는 행 개수에 따라 행을 여러 워크시트로 분할하는 데 도움을 줍니다. 아래 단계를 따르세요:

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

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

VBA: Excel에서 행 개수에 따라 데이터를 워크시트로 분할하기

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을 사용하여 행 개수에 따라 데이터를 여러 워크시트로 분할하기

VBA 코드가 복잡하다고 생각한다면, Kutools for Excel은 데이터 분할 문제를 효율적으로 해결하기 위한 빠르고 직관적인 솔루션을 제공합니다. 이 데이터 분할 기능은 작업 과정을 단순화하여 모든 기술 수준의 사용자가 심도 있는 프로그래밍 지식 없이도 대규모 데이터 세트를 여러 워크시트로 쉽게 나눌 수 있도록 하여 효과적인 데이터 관리를 가능하게 합니다.

Kutools for Excel을 설치했다면 다음과 같이 해보세요:

1. 분할하려는 데이터 범위를 선택합니다. 그런 다음 Kutools Plus > 데이터 분할을 클릭하세요. 스크린샷 참조:

3. 여러 워크시트로 데이터 분할 대화 상자에서:

• 분할 기준 옵션에서 고정 행을 선택하고 각 워크시트별로 분할할 행 개수를 입력합니다.
• 데이터에 머리글이 포함되어 있고 새로 분할된 각 워크시트에 이를 삽입하려면 데이터에 머리글이 포함되어 있음 옵션을 체크하세요. (팁: 데이터에 따라 머리글 행의 개수를 입력할 수 있습니다.)
• 그런 다음 새 워크시트 이름 섹션에서 규칙 드롭다운 목록에서 워크시트 이름 규칙을 선택하여 시트 이름에 접두사 또는 접미사를 추가할 수도 있습니다.

4. 설정을 완료한 후 확인을 클릭하면 선택한 데이터가 5행마다 새로운 워크북의 여러 워크시트로 분할됩니다. 그리고 각 새 워크시트에 머리글이 삽입됩니다. 스크린샷 참조:

관련 기사: