エクセルで2000行ほどある一枚のシートを50行ごとに
(1-50)(51-100)(101-150)…と分割して、一つずつ
新しいブックで保存する作業があります。
今までは50行ごとにコピーして新しいブックにペーストを
繰り返してましたが、大量にきたもので困ってます。
何か自動化などできないことでしょうか?
ご回答お待ちしております。
参考にシートは以下のような形式です。
A B C D
1 a 1 1 1
2 b 1 2 3
3 c 2 3 4
4 d 5 6 7
5 e 7 8 9
6 f 2 3 4
7 h 5 6 7
8 g 8 9 1
9 n 2 3 4
10 n 5 6 7
・
・
・
50 j 5 6 7
No.2ベストアンサー
- 回答日時:
> エクセルで50行ごとに区切ったデータをシートに分割したい
> …と分割して、一つずつ新しいブックで保存する作業があります。
「ブック」と「シート」のどちらか不明瞭ですが、アクティブシートを50行毎に
新しいブックにコピーするコードです。
アクティブブックと同じフォルダに保存されます。
Option Explicit
Sub Sample()
Dim Wb As Workbook
Dim rngData As Range
Dim i As Long
Dim strBasename As String
Dim strFilename As String
Dim lng1stRow As Long
Dim lngLstRow As Long
Const STEP_ROWS_COUNT = 50 '50 行
Set rngData = ActiveSheet.UsedRange
strBasename = ActiveWorkbook.FullName
With rngData
lng1stRow = .Row
lngLstRow = Application.Ceiling(.Cells(.Cells.Count).Row, STEP_ROWS_COUNT)
End With
Application.ScreenUpdating = False
For i = lng1stRow To lngLstRow Step STEP_ROWS_COUNT
' 新規ブック作成
Set Wb = Workbooks.Add
' STEP_ROWS_COUNT で指定された行ごとに新規ブックの Sheet1 にコピー
rngData.Rows(CStr(i) & ":" & CStr(i + STEP_ROWS_COUNT - 1)).Copy _
Destination:=Wb.Worksheets("Sheet1").Range("A1")
' 新規ファイル名生成
strFilename = Left$(strBasename, InStrRev(strBasename, ".") - 1) & "(" _
& Format$(i, "0000") & "-" & Format$(i + STEP_ROWS_COUNT - 1, "0000") _
& ").xls"
' 同一フォルダに保存して閉じる
Wb.SaveAs Filename:=strFilename
Wb.Close
Set Wb = Nothing
Next i
Set rngData = Nothing
End Sub
マクロがよく分からないので、悪戦苦闘のうえ、
無事に成功できました。凄いですね!
ファイルが番号順の名前で出来てきたときは
驚きと嬉しさでいっぱいでした。
マクロを作っていただき大変助かりました。
ほんとうに有難うございました。
No.1
- 回答日時:
以下のようなマクロで可能です。
対象のシートは1枚であると仮定しています。
(あまりテストしてないのでバグがあるかもしれません)
---
Sub test()
Dim m As Long
Dim r As Long
Dim n As String
n = ActiveWorkbook.Name
'コピー単位
m = 50
'最終行取得
r = Range("A65536").End(xlUp).Row
'最終行がコピー単位より大きい間繰り返し
Do While r > m
'コピー単位より大きい部分を切り取り
Rows(CStr(m + 1) & ":" & CStr(r)).Cut
'新しいシートを作成
Sheets.Add After:=Worksheets(Worksheets.Count)
'新しいシートに貼り付け
Rows("1:1").Insert Shift:=xlDown
'最終行を取得
r = Range("A65536").End(xlUp).Row
Loop
'シートが1つになるまで繰り返し
Do While Worksheets.Count > 1
'最後のシートを新しいブックに移動
Sheets(Worksheets.Count).Move
'最初のブックに戻る
Windows(n).Activate
Loop
End Sub
マクロはよく分からないんですが、ちょっとうまく
動いてくれませんでした。途中で止まりました。
どこが悪いかもよく分かりませんが、
お手数かけて
作っていただき有難うございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
【大喜利】【投稿~11/1】 存在しそうで存在しないモノマネ芸人の名前を教えてください
【お題】 ・存在しそうで存在しないモノマネ芸人の名前を教えてください
-
チョコミントアイス
得意ですか?不得意ですか?できれば理由も教えてください。
-
これ何て呼びますか Part2
あなたのお住いの地域で、これ、何て呼びますか?
-
この人頭いいなと思ったエピソード
一緒にいたときに「この人頭いいな」と思ったエピソードを教えてください
-
あなたの習慣について教えてください!!
あなたが習慣だと思って実践しているものを共有してくださいませんか? 筋肉トレーニングでも朝シャワーでも、あなたが習慣だなと思えば何でも構いません
-
エクセルで20万行あるシートから100行ずつ抽出したいのですが
Excel(エクセル)
-
Excelで大量の2000個のリストを100個ずつ
Excel(エクセル)
-
エクセル2007 A列多数セルを50行ごとに区切る
その他(Microsoft Office)
-
-
4
EXCELで100行に1行ずつ抽出したい
Excel(エクセル)
-
5
エクセルで1列に500行並んだデータを5列毎に改行
Excel(エクセル)
-
6
エクセルで長い行を5行ごとに1列にするには?
Excel(エクセル)
-
7
Excelで50行毎に改ページを入れたい
その他(Microsoft Office)
-
8
エクセルの1シートの内容を複数のシートに分割したい。
Excel(エクセル)
-
9
1行を1シートずつに書き出すには
Excel(エクセル)
-
10
エクセル(EXCEL)VBAで行自動分割
その他(Microsoft Office)
-
11
EXCEL の表を一行ずつシートに分ける方法
Excel(エクセル)
-
12
100万行のCSVを10万行ずつのファイルに区切るには?(UTF-8、改行LF)
Excel(エクセル)
-
13
エクセルのページをシートごとに自動分割するやり方について(列、行ともに同一に)
Excel(エクセル)
-
14
Excelで12行ずつ印刷するには
Excel(エクセル)
-
15
エクセルの表で10行毎に1行づず新しい行を挿入する方法
Excel(エクセル)
-
16
エクセルで数行おきにデータを抽出
Excel(エクセル)
-
17
エクセルの改ページを行ごとに自動挿入するには?
Excel(エクセル)
-
18
マクロを複数シートに実行するには?
Excel(エクセル)
-
19
VBAでブックを非表示で開いて処理して閉じる方法
Excel(エクセル)
-
20
VBA 連続行データを5行ずつ隣の列に貼り付ける
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・一回も披露したことのない豆知識
- ・これ何て呼びますか
- ・チョコミントアイス
- ・初めて自分の家と他人の家が違う、と意識した時
- ・「これはヤバかったな」という遅刻エピソード
- ・これ何て呼びますか Part2
- ・許せない心理テスト
- ・この人頭いいなと思ったエピソード
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・あなたの習慣について教えてください!!
- ・ハマっている「お菓子」を教えて!
- ・高校三年生の合唱祭で何を歌いましたか?
- ・【大喜利】【投稿~11/1】 存在しそうで存在しないモノマネ芸人の名前を教えてください
- ・好きなおでんの具材ドラフト会議しましょう
- ・餃子を食べるとき、何をつけますか?
- ・あなたの「必」の書き順を教えてください
- ・ギリギリ行けるお一人様のライン
- ・10代と話して驚いたこと
- ・家の中でのこだわりスペースはどこですか?
- ・つい集めてしまうものはなんですか?
- ・自分のセンスや笑いの好みに影響を受けた作品を教えて
- ・【お題】引っかけ問題(締め切り10月27日(日)23時)
- ・大人になっても苦手な食べ物、ありますか?
- ・14歳の自分に衝撃の事実を告げてください
- ・架空の映画のネタバレレビュー
- ・「お昼の放送」の思い出
- ・昨日見た夢を教えて下さい
- ・ちょっと先の未来クイズ第4問
- ・【大喜利】【投稿~10/21(月)】買ったばかりの自転車を分解してひと言
- ・メモのコツを教えてください!
- ・CDの保有枚数を教えてください
- ・ホテルを選ぶとき、これだけは譲れない条件TOP3は?
- ・家・車以外で、人生で一番奮発した買い物
- ・人生最悪の忘れ物
- ・【コナン30周年】嘘でしょ!?と思った○○周年を教えて【ハルヒ20周年】
- ・10秒目をつむったら…
- ・人生のプチ美学を教えてください!!
- ・あなたの習慣について教えてください!!
- ・都道府県穴埋めゲーム
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelの警告について
-
エクセルを共有するとPCによっ...
-
VBAでブックを非表示で開いて処...
-
エクセルの関数 ENTERを押...
-
Excelファイルをダブルクリック...
-
エクセルで参照しているデータ...
-
Excel(2010)のフィルターが保...
-
印刷しようとすると強制終了に...
-
エクセルにおける,「ブック」...
-
フォルダ内の複数ファイルから...
-
ブックのピボットを別ブックに...
-
WorkBooksをオープンさせずにシ...
-
Excelで複数ブックの同一セルに...
-
同じフォルダへのハイパーリン...
-
Excel起動時に特定のワークシー...
-
エクセルに別ファイルのエクセ...
-
エクセルで開いていないbookの...
-
指定ファィルの指定シートをシ...
-
ブックの保護ができないんです...
-
エクセルVBAでブックを相対パス...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelの警告について
-
エクセルを共有するとPCによっ...
-
エクセルの関数 ENTERを押...
-
VBAでブックを非表示で開いて処...
-
Excel(2010)のフィルターが保...
-
エクセルで参照しているデータ...
-
印刷しようとすると強制終了に...
-
WorkBooksをオープンさせずにシ...
-
エクセルにおける,「ブック」...
-
Excelでブックの共有を掛けると...
-
Excelファイルをダブルクリック...
-
エクセルファイルを開かずにpdf...
-
ブックのピボットを別ブックに...
-
Excel起動時に特定のワークシー...
-
エクセルで「ディスクがいっぱ...
-
同じフォルダへのハイパーリン...
-
VBA バックグラウンドで別ブッ...
-
フォルダ内の複数ファイルから...
-
エクセルシートの一部を送りたい
-
Excelで複数ブックの同一セルに...
おすすめ情報