Excel シートを行に基づいて複数のシートに分割

計算を簡単にするために、行に基づいて Excel シートを複数のシートに分割する必要がある場合があります。 .この記事では、Microsoft Excel VBA を使用してそれを行う方法を学習します。 美しい例と説明付きのコード。

練習用ワークブック

次のワークブックをダウンロードして練習してください。

行に基づいて Excel シートを複数のシートに分割する Excel VBA

VBA (Visual Basic for Application) は、Microsoft Excel で最も人気のあるプログラミング言語の 1 つです。ユーザー定義関数を開発するには、Excel VBA を使用できます。学ぶのも応用するのもとても簡単です。

Excel で複数のシートに分割する必要があるシートの概要

データセット (B4:C10) があるとします。 ) Sheet1 に勤務時間が記載されている従業員の数 . このシートを複数のシートに分割します .各シートには 2 つの行が含まれます。

ステップ 1:VBA ウィンドウを起動して 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 を押すことができます コードを実行するためのキー

ステップ 3:マクロに名前を付けて実行し、行に基づいてシートを複数のシートに分割する

• 確認 マクロ ウィンドウがポップアップします。
• その後、シート名を選択してクリックします ランで .

ステップ 4:データ範囲の選択

• ExcelSplit Range でデータの範囲を指定します ダイアログ ボックスを開き、[OK] を選択します .

ステップ 5:各シートに表示される行数を指定する

• ExcelSplit Row Number Split で分割する行番号を再び書き留めます。 ダイアログ ボックスを開き、[OK] を選択します .ここでは「2」と書きます

行に基づく複数の Excel シートによる最終出力

• 最後に、メイン シートが複数のシートに分割されていることがわかります。各シートには 2 つの行があります。

続きを読む: 列の値に基づいて Excel シートを複数のシートに分割する方法

結論

この Microsoft Excel VBA コードを使用すると、行に基づいて Excel シートを複数のシートに分割できます。練習問題集を追加しました。さあ、試してみてください。何か質問したり、新しい方法を提案したりしてください。

関連資料

• Excel で画面を分割する方法 (3 つの方法)
• Excel の別シート (6 つの効果的な方法)
• Excel シートを複数のファイルに分割する方法 (3 つの簡単な方法)
• Excel でシートを個別のワークブックに分割する (4 つの方法)
• ワークブックを分割して VBA コードで Excel ファイルを分離する方法