No.3ベストアンサー
- 回答日時:
EXCELの最大行は65536行です。
1万件の行に8行ずつ挿入すると9万件となり最大行数をオーバーするので希望通りにはできません。挿入する行がもっと少なくても良いなら以下のマクロでも可能です。
マクロはALT+F11でVBE画面を開き、「VBAProjectエクスプローラのシート名右クリック」→「挿入」→「標準モジュール」で表示される画面にペーストして下さい。実行はシート画面に戻って、ALT+F8を押してマクロ一覧からマクロ名を選択して実行します。
挿入する行数はマクロに書いていますから、変更してください。またデータのあるなしはA列で判定しています。
Sub Macro4()
Dim idx As Long
Const insRows As Integer = 5 'ここに挿入する行数を書く
Application.ScreenUpdating = False
For idx = Range("a65536").End(xlUp).Row To 1 Step -1
Cells(idx, 1).Offset(1, 0).Resize(insRows, 1).EntireRow.Insert shift:=xlDown
Next idx
Application.ScreenUpdating = True
End Sub
蛇足ですがマクロで変更したシートは元に戻せませんので、予めセーブしてから試してください。
お礼が遅くなり、申し訳ありませんでした。
おかげさまで、簡単にできました!!
助かりました。どうもありがとうございます。
確かに行数は多くなりますね。大変失礼致しました。
これからもどうぞよろしくお願いいたします。
No.5
- 回答日時:
他の回答者も仰っている通り、Excel2003までは65536行までしか扱えません。
Excel2007では104万8576行まで使用できるように拡張されているので、どうしてもご希望のことをしたいのであればExcel2007にバージョンアップする必要があります。
No.2
- 回答日時:
Excelは65536件以上入りません。
先に切り分けが必要です。モジュールに以下のコードをコピーして下さい。ただし、バックアップはとって下さいね。以前ネットで拾ったものですので自己責任で行って下さい。
Sub hoge()
Dim IROW As Long
Dim i As Long
IROW = Sheet1.UsedRange.Rows.Count
Application.ScreenUpdating = False
For i = IROW To 2 Step -1
Sheet1.Rows(i & ":" & i + 7).Select
Selection.Insert Shift:=xlDown
Next i
Application.ScreenUpdating = True
Range("A1").Select
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(Microsoft Office) Wordを変換してExcelに挿入 2 2022/07/04 23:59
- Excel(エクセル) Excel VBA 指定フォルダに格納されている全エクセルファイルに指定シートを挿入する方法について 1 2022/08/22 11:53
- Excel(エクセル) Excel VBA 空白行があるセル範囲に色を付ける 3 2022/06/13 15:58
- Excel(エクセル) Excel 表の作成について 3 2022/06/16 12:15
- Excel(エクセル) Excelで、あるセルだけ入力させたい、オートフィルターも使わせたい際のシートの保護 2 2023/02/23 15:14
- Visual Basic(VBA) Excel vbaについて知恵もしくは、コード教えて下さいm(__)m ① 表にあるデータをコピー、 2 2022/09/01 23:57
- その他(Microsoft Office) 関数を教えてください 1 2022/12/13 15:56
- Visual Basic(VBA) マクロを教えてください。 7 2023/06/01 19:47
- 会計ソフト・業務用ソフト Excelマクロに詳しい方教えてください 1 2023/06/29 16:18
- Excel(エクセル) 関数EXACT(文字列,文字列)とexcelVBA 3 2022/04/14 15:07
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
Excelでコピーした行の挿入を繰り返すには
Excel(エクセル)
-
Excel VBA 複数行を数の分だけ挿入したい
Visual Basic(VBA)
-
Excelで一行おきに2行の空白行を挿入したい
その他(Microsoft Office)
-
-
4
エクセル2016にて、行挿入&コピーの繰り返しをするマクロを教えてください。
Excel(エクセル)
-
5
Excelで行ごとコピー、同じ行を3行にしたい
Excel(エクセル)
-
6
Excelで、あるセルの値に応じて行を自動挿入したい
Visual Basic(VBA)
-
7
特定の文字を条件に行挿入とそこからセルデータを追加するVBAについて
Visual Basic(VBA)
-
8
VBAで繰り返しコピーしながら下へ移動させる方法
Excel(エクセル)
-
9
繰り返し1行~28行までを順順にコピーする方法
Visual Basic(VBA)
-
10
エクセルの表で10行毎に1行づず新しい行を挿入する方法
Excel(エクセル)
-
11
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
12
コピーしたデータを2行ずつに貼り付け
その他(Microsoft Office)
-
13
エクセルで複数行ずつ連続データを入力する方法
Excel(エクセル)
-
14
VBAで別ブックの列を検索し、該当があれば行ごと新規ブックにコピーしたい。
Excel(エクセル)
-
15
VBA データ(特定値)のある最終行を取得したい
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ローマ字→カタカナへ変換(エク...
-
マクロ 実行ボタンを押さずに...
-
複数ファイルにある特定のシー...
-
EXCELのセルへ、デジタル時計を...
-
エクセル グラフの軸の最小値最...
-
Excel VBA のdebug(F8キー) が...
-
《エクセル2000》非表示になっ...
-
Excelを開いた時に表示さ...
-
モジュール内のマクロを全て実...
-
EXCEL 複数のシートの同一の位...
-
エラーになってないのにVBA...
-
開いているフォルダを全て閉じ...
-
Wordで「原稿用紙○枚」を換算す...
-
Excel文字列中の太字(Bold)部分...
-
Accessのクエリを実行するショ...
-
TeraTermのマクロについて
-
エクセルで複数のシートをまと...
-
ワードからエクセルへ貼り付け...
-
【Excel VBA】エラー番号400
-
エクセルのマクロ機能で前のシ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ローマ字→カタカナへ変換(エク...
-
マクロ 実行ボタンを押さずに...
-
複数ファイルにある特定のシー...
-
EXCELのセルへ、デジタル時計を...
-
Excel VBA のdebug(F8キー) が...
-
エラーになってないのにVBA...
-
Excelを開いた時に表示さ...
-
Wordで「原稿用紙○枚」を換算す...
-
ワードからエクセルへ貼り付け...
-
エクセルで複数のシートをまと...
-
エクセルのマクロ機能で前のシ...
-
エクセル グラフの軸の最小値最...
-
TeraTermのマクロについて
-
Excelの改ページ 同シート内で...
-
EXCEL 複数のシートの同一の位...
-
ワードで画像を自動で挿入する方法
-
Excelのワークシート上に検索窓...
-
モジュール内のマクロを全て実...
-
Excel2000 データの並べ替えで...
-
Excelマクロでオプションボタン...
おすすめ情報