Computer >> 컴퓨터 >  >> 소프트웨어 >> Office

행에 따라 Excel 시트를 여러 시트로 분할

때때로 쉬운 계산을 위해 Excel 시트를 행을 기반으로 여러 시트로 분할해야 합니다. . 이 기사에서는 Microsoft Excel VBA를 사용하여 이를 수행하는 방법을 배웁니다. 아름다운 예제와 설명이 포함된 코드입니다.

연습 워크북

다음 워크북을 다운로드하고 연습하세요.

행을 기반으로 Excel 시트를 여러 시트로 분할하는 Excel VBA

VBA (Visual Basic for Application)은 Microsoft Excel에서 가장 널리 사용되는 프로그래밍 언어 중 하나입니다. 사용자 정의 함수를 개발하기 위해 Excel VBA를 사용할 수 있습니다. 배우기도 쉽고 적용하기도 쉽습니다.

Excel에서 여러 시트로 분할해야 하는 시트 소개

데이터세트(B4:C10 ) 직원의 근무 시간이 Sheet1 . 이 시트를 여러 시트로 분할할 것입니다. . 각 시트에는 두 개의 행이 포함됩니다.

행에 따라 Excel 시트를 여러 시트로 분할

1단계:VBA 창을 실행하여 Excel 시트를 여러 개로 분할

  • 먼저 시트 표시줄에서 워크시트를 선택합니다.
  • 다음 오른쪽 클릭 시트에.
  • 클릭 코드 보기에서 .

행에 따라 Excel 시트를 여러 시트로 분할

2단계:VBA 코드 입력 및 실행

  • VBA 모듈 여기에서 창이 열립니다. 바로 가기 키 ' Alt + F11을 사용하여 열 수 있습니다. '.
  • 이제 아래 코드를 입력하세요.
Sub SplitSheet()
Dim Rng As Range
Dim xRow As Range
Dim SplitRow As Integer
Dim xSheet As Worksheet
On Error Resume Next
xTitleId = "ExcelSplit"
Set Rng = Application.Selection
Set Rng = Application.InputBox("Range", xTitleId, Rng.Address, Type:=8)
SplitRow = Application.InputBox("Row Number Split", xTitleId, 5, Type:=1)
Set xSheet = Rng.Parent
Set xRow = Rng.Rows(1)
Application.ScreenUpdating = False
For i = 1 To Rng.Rows.Count Step SplitRow
resizeCount = SplitRow
If (Rng.Rows.Count - xRow.Row + 1) < SplitRow Then resizeCount = Rng.Rows.Count - xRow.Row + 1
xRow.Resize(resizeCount).Copy
Application.Worksheets.Add after:=Application.Worksheets(Application.Worksheets.Count)
Application.ActiveSheet.Range("A1").PasteSpecial
Set xRow = xRow.Offset(SplitRow)
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub
  • 그런 다음 클릭 실행 옵션을 선택하거나 F5 코드를 실행하는 키입니다.

행에 따라 Excel 시트를 여러 시트로 분할

3단계:행을 기반으로 시트를 여러 시트로 분할하는 매크로 이름 지정 및 실행

  • 확인 매크로 창이 나타납니다.
  • 그런 다음 시트 이름을 선택하고 클릭 실행 .

행에 따라 Excel 시트를 여러 시트로 분할

4단계:데이터 범위 선택

  • ExcelSplit 범위에서 데이터 범위 지정 대화 상자에서 확인을 선택합니다. .

행에 따라 Excel 시트를 여러 시트로 분할

5단계:각 시트에 표시될 행 수 지정

  • ExcelSplit Row Number Split에서 분할하려는 행 번호를 다시 적어둡니다. 대화 상자에서 확인을 선택합니다. . 여기에 '2를 씁니다. '.

행에 따라 Excel 시트를 여러 시트로 분할

행을 기반으로 하는 여러 Excel 시트가 있는 최종 출력

  • 마지막으로 메인 시트가 여러 시트로 분할된 것을 볼 수 있습니다. 각 시트에는 두 개의 행이 있습니다.

행에 따라 Excel 시트를 여러 시트로 분할

자세히 알아보기: 열 값에 따라 Excel 시트를 여러 시트로 분할하는 방법

결론

이 Microsoft Excel VBA 코드를 사용하여 Excel 시트를 행을 기반으로 여러 시트로 분할할 수 있습니다. 연습문제집이 추가되었습니다. 시도해 보세요. 무엇이든 물어보거나 새로운 방법을 제안해 주세요.

관련 자료

  • Excel에서 화면을 분할하는 방법(3가지 방법)
  • Excel의 개별 시트(6가지 효과적인 방법)
  • Excel 시트를 여러 파일로 분할하는 방법(3가지 빠른 방법)
  • Excel에서 시트를 별도의 통합 문서로 분할(4가지 방법)
  • VBA 코드로 Excel 파일을 분리하기 위해 통합 문서를 분할하는 방법