特定の行数に基づいてデータを複数のワークシートに分割する

大規模なデータ範囲を特定の行数に基づいて複数のExcelワークシートに効率的に分割することで、データ管理が簡素化されます。例えば、5行ごとにデータセットを複数のシートに分割すると、より管理しやすく整理された形で扱うことができます。このガイドでは、このタスクを迅速かつ簡単に実行するための2つの実用的な方法を紹介します。

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. 「 OK」をクリックすると、2番目のプロンプトボックスが表示されるので、行数に基づいて分割したいデータ範囲を選択してください（スクリーンショット参照）：

5. 「OK」ボタンを続けてクリックすると、3番目のプロンプトボックスが表示されるので、分割する行数を入力してください（スクリーンショット参照）：

6. 次に、「OK」ボタンをクリックすると、データが行数に基づいて複数のワークシートに分割されます（スクリーンショット参照）：

Kutools for Excelを使用して行数に基づいてデータを複数のワークシートに分割する

VBAコードが複雑だと感じる場合、Kutools for Excelはデータ分割の問題を効率的に解決するための迅速で直感的なソリューションを提供します。この「データの分割」機能により、操作プロセスが簡素化され、高度なプログラミング知識がなくても大規模なデータセットを簡単に複数のワークシートに分割でき、効果的なデータ管理が可能になります。

Kutools for Excelをインストールしている場合は、次の手順に従ってください：

1. 分割したいデータ範囲を選択します。次に、Kutools Plus > データの分割をクリックします（スクリーンショット参照）：

3. 「データを複数のワークシートに分割」ダイアログボックスで：

• 「分割の基準」オプションから「固定値」を選択し、各ワークシートごとに分割する行数を入力します。
• データにヘッダーがあり、それを各新しい分割ワークシートに挿入したい場合は、「データにヘッダーが含まれている」オプションをチェックしてください。（ヒント：データに基づいてヘッダー行の数を入力できます。）
• 次に、分割後のワークシート名を指定できます。新しいワークシート名セクションで、ルールドロップダウンリストからワークシート名のルールを選択し、 接頭辞や接尾辞を追加することもできます。

4. 設定を指定したら、「OK」をクリックすると、選択したデータが5行ごとに新しいワークブックの複数のワークシートに分割されます。また、各新しいワークシートにヘッダーが挿入されます（スクリーンショット参照）：

関連記事：