Excel에서 행 수에 따라 데이터를 여러 워크시트로 분할

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

VBA 코드를 사용하여 행 수를 기준으로 데이터를 여러 워크 시트로 분할

Excel 용 Kutools를 사용하여 행 수별로 데이터를 여러 워크 시트로 분할

VBA 코드를 사용하여 행 수를 기준으로 데이터를 여러 워크 시트로 분할

놀라운! Chrome, Edge, Firefox 및 Safari와 같은 Excel에서 효율적인 탭을 사용하세요!
시간의 50 %를 절약하고 매일 수천 번의 마우스 클릭을 줄이십시오!

다음 VBA 코드는 다음과 같이 행 수를 기준으로 행을 여러 워크 시트로 분할하는 데 도움이 될 수 있습니다.

1. 누르고 ALT + F11 열쇠를 열려면 응용 프로그램 용 Microsoft Visual Basic 창.

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. 그런 다음 OK두 번째 프롬프트 상자에서 행 수로 분할 할 데이터 범위를 선택합니다. 스크린 샷을 참조하십시오.

5. 클릭으로 이동 OK 버튼을 누르고 세 번째 프롬프트 상자에 분할 할 행 수를 입력합니다. 스크린 샷을 참조하십시오.

6. 그런 다음 OK 버튼을 클릭하면 데이터가 행 수에 따라 여러 워크시트로 분할되었습니다. 스크린샷을 참조하세요.

Excel 용 Kutools를 사용하여 행 수별로 데이터를 여러 워크 시트로 분할

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

설치 한 경우 Excel 용 Kutools, 다음과 같이하십시오.

1. 분할하려는 데이터 범위를 선택합니다. 그런 다음 쿠툴즈 플러스 > 데이터 분할, 스크린 샷 참조 :

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

• 선택 고정 행 에 기준 분할 옵션을 선택하고 각 워크시트에 대해 분할하려는 행 수를 입력합니다.
• 데이터에 머리글이 있고 이를 각각의 새로운 분할 워크시트에 삽입하려면 다음을 확인하세요. 내 데이터에 헤더가 있습니다. 옵션. (팁: 데이터를 기준으로 목동 행 수를 입력할 수 있습니다.)
• 그런 다음 분할 워크 시트 이름을 지정할 수 있습니다. 새 워크 시트 이름 섹션에서 워크 시트 이름 규칙을 선택합니다. 규칙 드롭 다운 목록에서 접두사 or 접미사 시트 이름도 마찬가지입니다. 

4. 설정을 지정한 후 OK, 선택한 데이터가 5 행마다 새 통합 문서의 여러 워크 시트로 분할되었습니다. 그리고 새 워크 시트마다 머리글이 삽입됩니다. 스크린 샷보기 :

관련 기사:

최고의 사무 생산성 도구

🤖	Kutools AI 보좌관: 다음을 기반으로 데이터 분석을 혁신합니다. 지능형 실행   |  코드 생성  |  사용자 정의 수식 만들기  |  데이터 분석 및 차트 생성  |  Kutools 기능 호출...
	인기 기능: 중복 항목 찾기, 강조 표시 또는 식별   |  빈 행 삭제   |  데이터 손실 없이 열이나 셀 결합   |   수식없이 반올림 ...
	슈퍼 조회: 다중 기준 VLookup  |   다중 값 VLookup  |   여러 시트에 걸친 VLookup   |   퍼지 조회 ....
	고급 드롭다운 목록: 드롭다운 목록을 빠르게 생성   |  종속 드롭다운 목록   |  다중 선택 드롭 다운 목록 ....
	열 관리자: 특정 개수의 열 추가  |  열 이동  |  Toggle 숨겨진 열의 가시성 상태  |  범위 및 열 비교 ...
	특색 지어진 특징: 그리드 포커스   |  디자인보기   |   큰 수식 바   |  통합 문서 및 시트 관리자   |  리소스 라이브러리 (자동 텍스트)   |  날짜 선택기   |  워크 시트 결합   |  셀 암호화/해독   |  목록으로 이메일 보내기   |  슈퍼 필터   |   특수 필터 (굵게/기울임꼴/취소선 필터링...) ...
	상위 15개 도구 세트:  12 본문 도구 (텍스트 추가, 문자 제거,...)   |   50+ 거래차트 유형 (Gantt 차트,...)   |   40+ 실용 방식 (생일을 기준으로 나이 계산,...)   |   19 삽입 도구 (QR 코드 삽입, 경로에서 그림 삽입,...)   |   12 매출 상승 도구 (숫자를 단어로, 환율,...)   |   7 병합 및 분할 도구 (고급 결합 행, 셀 분할,...)   |   ... 그리고 더

Excel용 Kutools로 Excel 기술을 강화하고 이전과는 전혀 다른 효율성을 경험해 보세요. Excel용 Kutools는 생산성을 높이고 시간을 절약하기 위해 300개 이상의 고급 기능을 제공합니다.  가장 필요한 기능을 얻으려면 여기를 클릭하십시오...

자세히보기 ... 무료 다운로드...

---

Office Tab은 Office에 탭 인터페이스를 제공하여 작업을 훨씬 쉽게 만듭니다.

• Word, Excel, PowerPoint에서 탭 편집 및 읽기 사용, Publisher, Access, Visio 및 Project.
• 새 창이 아닌 동일한 창의 새 탭에서 여러 문서를 열고 만듭니다.
• 생산성을 50% 높이고 매일 수백 번의 마우스 클릭을 줄입니다!

자세히보기 ... 무료 다운로드...