ヒント:他の言語はGoogle翻訳されています。 訪問することができます English このリンクのバージョン。
ログイン
x
or
x
x
登録
x

or

Excelで行数によってデータを複数のワークシートに分割する方法は?

例えば、私はデータリストの範囲を持っていますが、今は行数で複数のワークシートに分割したいと思います。この例では、すべての5行で分割します(次のスクリーンショットを参照)。 この問題を迅速に解決するための方法はありますか? ここでは、簡単にやり遂げるための2つのテクニックを紹介します。


doc-split-data-by-rows1


-2



doc-split-data-by-rows2
doc-split-data-by-rows3
doc-split-data-by-rows4
doc-split-data-by-rows5

VBAコードで行数をカウントして複数のワークシートにデータを分割する

Kutools for Excelで行数を計算して複数のワークシートに分割


矢印青い右の泡 VBAコードで行数をカウントして複数のワークシートにデータを分割する


次のVBAコードは、行数によって複数のワークシートに行を分割するのに役立ちます。

1。 押さえつける Alt + F11 キーを開く アプリケーション用Microsoft Visual Basic 窓。

2に設定します。 OK をクリックします。 インセット > モジュール次のコードをモジュールウィンドウに貼り付けます。

VBA:データを行単位でExcelに分割します。

Sub SplitData()
'Updateby20140617
Dim WorkRng As Range
Dim xRow As Range
Dim SplitRow As Integer
Dim xWs As Worksheet
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
SplitRow = Application.InputBox("Split Row Num", xTitleId, 5, Type:=1)
Set xWs = WorkRng.Parent
Set xRow = WorkRng.Rows(1)
Application.ScreenUpdating = False
For i = 1 To WorkRng.Rows.Count Step SplitRow
    resizeCount = SplitRow
    If (WorkRng.Rows.Count - xRow.Row + 1) < SplitRow Then resizeCount = WorkRng.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

3。 次に、 F5 キーを押してコードを実行し、分割する範囲を選択するためのダイアログが表示されたら、 OK行数を指定する別のダイアログが表示されます。 スクリーンショットを見る:

4. ナビゲーションヘッダーの OK範囲は行数によって複数のシートに分割されます。

:分割ワークシートは、マスターワークシートの背面に配置されます。


矢印青い右の泡 Kutools for Excelで行数を計算して複数のワークシートに分割

上記のコードでは、指定された行数だけデータを分割することができます。データにタイトルがある場合、各ワークシートデータのタイトルは追加されません。

しかし、と Kutools for Excelさん 分割データワークシート・データごとにヘッダーを挿入できるだけでなく、新しい分割ワークシート名を指定することもできます。

Kutools for Excel 300以上の便利なExcelツールが含まれています。 自由に30日に制限なしで試してみてください。 今すぐ入手

Excel用Kutoolsをインストールしている場合は、次のようにしてください:

1。 分割するデータの範囲を選択します。

2に設定します。 OK をクリックします。 大口プラン > ワークシートツール > 分割データ (または 大口プラン > 分割データ )、スクリーンショットを参照してください:

doc-split-data-by-rows6

3。 の中に データを複数のワークシートに分割する ダイアログボックス:

  • 選択します 固定行 from に基づいて分割 オプションを選択し、ワークシートごとに分割する行数を入力します。 (データにヘッダーがあり、新しい分割されたワークシートに挿入する場合は、チェックしてください 私のデータにヘッダーがあります オプション。)
  • 次に、分割されたワークシート名を 新しいワークシート名 セクションからワークシート名のルールを選択します。 キャンペーンのルール ドロップダウンリストでは、 接頭辞 or サフィックス シート名についても同様です。 スクリーンショットを見る:

doc-split-data-by-rows7

4。 設定を指定したら、をクリックします。 OK選択したデータは、すべての5行ごとに新しいワークブックの複数のワークシートに分割されています。 そして、新しいワークシートごとにヘッダーが挿入されます。 スクリーンショットを見る:

doc-split-data-by-rows8

このスプリットデータ機能の詳細については、クリックしてください。

関連記事:

Excelの列に基づいて複数のワークシートにデータを分割する方法は?



推奨生産性ツール

Office Tab

金星1 Chrome、Firefox、新しいInternet Explorerと同様に、Excelやその他のOfficeソフトウェアに便利なタブを持たせる。

Kutools for Excel

金星1 素晴らしい! 5分で生産性を向上させます。 特別なスキルは必要ありません。毎日2時間節約できます!

金星1 300 Excelの新機能は、Excelを非常に簡単かつ強力にする:

  • データを失うことなくセル/行/列をマージします。
  • 複数のシートとブックを結合して統合する。
  • 範囲を比較し、複数の範囲をコピーし、テキストを日付、単位、通貨の変換に変換します。
  • 色数、ページング小計、高度なソートとスーパーフィルター、
  • 詳細選択/挿入/削除/テキスト/書式/リンク/コメント/ワークブック/ワークシートツール...

Kutools for Excelのスクリーンショット

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Max · 10 months ago
    Omg thank you so very much dude!
  • To post as a guest, your comment is unpublished.
    prasanna · 1 years ago
    Hi Thanks for this great code, but the concern is, here we can only split fixed number of rows, can you help me with split is based on some name or code, because i have different set of rows for each worksheet.
  • To post as a guest, your comment is unpublished.
    aparna · 2 years ago
    hi this works great but want the output as string how can i modify the code or i can say example : 'output',
  • To post as a guest, your comment is unpublished.
    Ralph · 2 years ago
    Thanks a lot for the fantastic VBA-Script. But how to modify it to keep the header row on every split?
  • To post as a guest, your comment is unpublished.
    Ralph · 2 years ago
    Thanks, for this fantastic VBA-Script. But how to configure it to repeat the header row on every split?