ヒント:他の言語はGoogle翻訳されています。 訪問することができます English このリンクのバージョン。
ログイン
x
or
x
x
LPI ID 登録
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で行数を計算して複数のワークシートに分割

OfficeタブOfficeでタブ付き編集とブラウジングを有効にし、作業をより簡単にします...
Kutools for Excelは、ほとんどの問題を解決し、生産性を80%向上させます
  • 何でも再利用: 最も使用されている式や複雑な式、チャート、その他をお気に入りに追加し、将来的にすぐに再利用できます。
  • 20以上のテキスト機能: テキスト文字列から数値を抽出します。 テキストの一部を抽出または削除します。 数字と通貨を英語の単語に変換します。
  • マージツール:複数のワークブックとシートを1つに; データを失うことなく複数のセル/行/列を結合します。 重複する行と合計をマージします。
  • 分割ツール:値に基づいてデータを複数のシートに分割します。 1つのワークブックから複数のExcel、PDF、またはCSVファイル。 1列から複数列。
  • 貼り付けスキップ 非表示/フィルターされた行。 カウントアンドサム 背景色別; パーソナライズされた電子メールを一括して複数の受信者に送信します。
  • スーパーフィルター: 高度なフィルタースキームを作成し、任意のシートに適用します。 ソート 週、日、頻度などにより; フィルタ 太字、式、コメントで...
  • 300の強力な機能以上。 Office 2007-2019および365で動作します。 すべての言語をサポートしています。 企業または組織に簡単に展開できます。

矢印青い右の泡 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の列に基づいて複数のワークシートにデータを分割する方法は?


Kutools for Excelは、ほとんどの問題を解決し、生産性を80%向上させます

  • 再利用: すばやく挿入 複雑な数式、チャート そして、以前に使用したもの; セルを暗号化する パスワード付き メーリングリストの作成 そしてメールを送る...
  • スーパーフォーミュラバー (複数行のテキストや数式を簡単に編集する) レイアウトを読む (多数のセルを簡単に読んで編集できます)。 フィルター範囲に貼り付ける...
  • セル/行/列を結合 データを失うことなく; セルコンテンツの分割。 重複する行/列を結合する...重複セルの防止。 範囲の比較...
  • 重複または一意を選択します空白行を選択 (すべてのセルは空です)。 スーパー検索とファジー検索 多くのワークブックで。 ランダム選択
  • 完全コピー 式の参照を変更せずに複数のセル。 参照を自動作成 複数のシートに 箇条書きを挿入、チェックボックスなど
  • テキストを抽出、テキストの追加、位置による削除、 スペースを削除する; ページング小計の作成と印刷 セルのコンテンツとコメント間の変換...
  • スーパーフィルター (保存して他のシートにフィルタ方式を適用する)。 高度な並べ替え 月/週/日、頻度などによる。 特殊フィルター 太字、斜体で...
  • ワークブックとワークシートを組み合わせる; キー列に基づいて表をマージします。 データを複数のシートに分割する; xls、xlsx、およびPDFのバッチ変換...
  • 300を超える強力な機能。 Office / Excel 2007-2019および365をサポートします。 すべての言語をサポートします。 企業または組織に簡単に展開できます。 フル機能の30日間の無料トライアル。
KTEタブ201905

OfficeタブはOfficeにタブ付きインターフェイスを提供し、作業をより簡単にします

  • Word、Excel、PowerPointでタブ付き編集と読み取りを有効にする、出版社、アクセス、Visioおよびプロジェクト。
  • 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
  • 生産性を50%向上させ、毎日数百回のマウスクリックを削減します。
オフィシタブ底
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.
    eve · 3 months ago
    Minmatar detected :O
  • To post as a guest, your comment is unpublished.
    ali · 6 months ago
    thank you. saved a lot of my time.
  • To post as a guest, your comment is unpublished.
    DragonKing · 6 months ago
    Years later, and this still holds up excellently. Thanks!
  • To post as a guest, your comment is unpublished.
    Max · 1 years 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?
  • To post as a guest, your comment is unpublished.
    Gunesh Chandran · 2 years ago
    Thanks a lot for this tutorial. It is working fine.
  • To post as a guest, your comment is unpublished.
    Adam Dicker · 3 years ago
    Is there a way to split and then exp[ort to multiple HTML files?
  • To post as a guest, your comment is unpublished.
    Amy Takers · 3 years ago
    We can increase rankings of your website in all major search engines at a very affordable price. Email us back to get a full proposal.
  • To post as a guest, your comment is unpublished.
    MattG · 4 years ago
    I've searched endlessly for this. Thank you so much for this tutorial!!!!
  • To post as a guest, your comment is unpublished.
    John Boyd · 4 years ago
    Works great coupled with this one as necessary: http://www.extendoffice.com/documents/excel/628-excel-split-workbook.html
  • To post as a guest, your comment is unpublished.
    Teri · 4 years ago
    It works with one row of column headers. I use multiple rows that include averages and totals. Plus, I have a distribution chart at the bottom. How can I keep these intact? Currently this info is not transferring over to the new worksheets it creates.
  • To post as a guest, your comment is unpublished.
    Teri · 4 years ago
    I have multiple rows of column headers containing averages and totals at the top of each sheet. I have a distribution chart at the bottom. This needs to be kept on each new sheet split out. How do I make this happen with the tool?
  • To post as a guest, your comment is unpublished.
    joms · 5 years ago
    hello,

    its not working for me. my data is coming from a pivot table and it has header. this vba can export some data but not all... pls assist
  • To post as a guest, your comment is unpublished.
    Lijesh · 5 years ago
    Great . It is awesome ...

    Thanks