- ベストアンサー
EXCEL1行おきに空白行を追加したいのですが、
データが行方向にたくさん連続して入力されたリストがありますが、1行おきに空白行を挿入したいのです。 その都度、「右クリック→行番号選択→挿入」では、時間がかかり過ぎてしまいます。 たとえば、1000の空白行を1行おきに一気に挿入する方法はないでしょうか。ご教授くださいませ。
- shigotonin2000
- お礼率45% (14/31)
- オフィス系ソフト
- 回答数4
- ありがとう数2
- みんなの回答 (4)
- 専門家の回答
質問者が選んだベストアンサー
こんにちは。KenKen_SP です。 マウスで空行を挿入する範囲を選択してから、実行して下さい。 挿入行数を変更するには、コードを修正して下さい。 参考ですが、表全体を選択するには、表の一部のセルをクリックし、 [Ctrl]+[*] で表全体が選択されます。 Sub InsertEmptyRows() '挿入行数をここで指定 Const cstCnt As Long = 1 Dim rngArea As Range Set rngArea = Intersect(Selection, ActiveSheet.UsedRange) With rngArea Application.ScreenUpdating = False For i = .Row + .Rows.Count To .Row + 1 Step -1 Rows(i).Resize(cstCnt).Insert Shift:=xlShiftDown Next i End With Set rngArea = Nothing End Sub
その他の回答 (3)
- tessyu
- ベストアンサー率53% (59/110)
Sub test() Sheets("sheet1").Select Range("A2").Select Do Until ActiveCell.Value = "" ActiveCell.EntireRow.Insert ActiveCell.Offset(2, 0).Select Loop End Sub このようなマクロでどうでしょうか。
- mshr1962
- ベストアンサー率39% (7418/18948)
並べ替えを使うかマクロを使うかですね。 並べ替えでいいなら 空いている列の先頭行に1と入力、下のセルに =上のセル+1 としてレコードの終わりまでコピーする。 その列をコピーして、値として貼り付ける。 レコード行部分の範囲をコピーして最終行の下に貼り付ける。 1,2,3,4,5,6,7,8......,2,3,4,5,6,7,8..... の状態になったらこの列で並べ替える。 最後にこの列を削除する。
- maruru01
- ベストアンサー率51% (1179/2272)
こんにちは。maruru01です。 どこかの列を作業列として使用します。 仮に作業列をE列とすると、 E1に「1」、E2に「3」と入力して、E1:E2を下の行へ(データ最下行まで)コピーします。 (1、3、5・・・と1つ飛びに値が入るようにします。) 次にデータ最下行のすぐ下のぎょうに「2」、その下に「4」と入力して、この2行を下の行へデータ数分コピーします。 (2、4、6・・・と1つ飛びに値が入るようにします。) そうしたら、この作業列(E列)を含めてデータ列を選択して、この作業列(E列)を基準に昇順に並べ替えをします。 これで、E列は「1、2、3、4・・・」となって、偶数の空白行が1行おきに入ります。 終わったらE列の値は削除してしまって構いません。
関連するQ&A
- Excelで1行置きに空白行を挿入するには
Excel2003を使用。 Excelで1行置きに空白行を挿入するには、[Ctrl]を押しながら行を1行ずつ選択し、 選択した任意の行で[右クリック]-[挿入]で行っています。 1行置きに空白行を入れたい行がたくさんあると、これではすごく大変です。 何か別な方法はあるのでしょうか? ちなみに、行を[ドラッグ]で連続して選択したり、[Shift]を押しながら開始行、 終了行を押して選択して[右クリック]-[挿入]をすると、開始行の前に空白 行がまとめて挿入されますので、これではいけません。 Excelにお詳しい方、どうかよろしくお願いします。
- ベストアンサー
- その他MS Office製品
- Excelで一行おきに2行の空白行を挿入したい
400行ほどデータの入ったエクセルシートがあります。 行番号 A列 1 山田 2 鈴木 : : 400 田中 このシートで、一行おきに2行の空白行を追加したいのですが、 1 山田 2 3 4 鈴木 5 6 : : マウスで2行選択して右クリックメニューで挿入..を400行分やるのが大変なので 一気にやる方法を教えてください。
- ベストアンサー
- その他MS Office製品
- Excel表の各行に数行ずつ空白行を入れたい
Excel表の各行の間に、例えば5行ずつの空白行を入れたいのですが、簡単な方法はないものでしょうか? 現在やっているのは、上の5行の空白行をコピーして次の行の下の行を選択し、 ツールバーの「挿入」で「コピーしたセルの挿入」とし、 次はそのコピーされた5行が選択状態ですから、それをコピーして次の行の下を選択し・・・・ とやっています。 データが100行もあるので困っています。
- ベストアンサー
- その他(Windows)
- excel2013 余白にある空白の行を消す
excel2013で単語帳を作りました。もっとも多いのがSで2000行くらいです。しかし、その 下の行が延々と続いていて、右側にあるスクロールバーをスライドすると3000行を超えるほど 空白の行が続きます。右側のスライドバーが2000行くらいにある最後の行で止まるようにする には、どうしたら良いのでしょうか? 空白の行を選択して右クリックで削除→行全体、をしましたが空白行全体は消えません。
- ベストアンサー
- 書籍・文庫
- エクセルの行挿入方法
見積書などの、データが連続した行に、空(カラ)の行を挿入したいのですが… 現在は”Ctrl”を押しながら、行番号をクリックし、必要範囲の行選択を行い、行挿入(右クリック挿入)を行っています ”Ctrl”を押しながら、全ての行選択を行う作業が大変な為(1000行もあるといやになる)、一度にできるテクニックがあればとても助かります。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- Excel2000で連続データの空白行を挿入したい。
Excel2000で連続データの空白行を挿入したい。 A1=B1+C1 A2=B2+C2 A3=B3+C3 (あと続く) と連続データになっているものに空白行を2行入れる方法を教えてください。 結果的に下記のようにしたいのです。 A1=B1+C1 A2=空白 A3=空白 A4=B2+C2 A5=空白 A6=空白 A7=B3+C3 (あと続く) ジャンプ機能を使うとできた気がするのですが・・・。 よく覚えていなく、わかりません。 どなたか教えてください。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- Excel2010行の挿入ができない
得意先からのメールに添付されていたファイルを流用して別の用途に使おうとしています。 列はどこでも挿入ができます。 しかし、行は1行目の上に行を挿入できますが、それ以外の行では行番号右クリックからの「挿入」がグレーアウトしていて行を挿入することができません。 また、挿入できた場所でも、挿入できたのは5行まで。それ以上は行番号右クリックからの「挿入」こそグレーアウトはしていませんが、それを選択すると添付の画像のようなメッセージが表示されます。 「この操作はワークシート上のテーブル内でシフトしようとしているため許可されません。」 というメッセージの意味もよくわかりません。 どんな設定が施されているのでしょうか。
- ベストアンサー
- その他MS Office製品
- 空白の行をキープしたい
OpenOfficeですが、わからない事があるので教えてください 現状 ・行11から連続して行100までデータがある 行いたい事 ・行10に新規にデータを入力しても、入力前の空白の行数(10)行を維持したい (それにともない、元あったデータを自動的に下の行に移動させる) こういう設定は可能でしょうか?
- 締切済み
- オフィス系ソフト
- 10行間に空白3行追加したいです
それぞれ2行の空白を含む30行の紙データーをOCRしエクセル保存しました。 取り出してみたら各1行になっていました。 コピー貼り付けの都合上 10行の間に2行ずつ追加して 30行にしたいです。 手動で複数行選択して行追加していますが、何回か繰り返さないと目的を達せません。残りが大量にあり、おたすけください。 10行のデータは B4:J14までですが 列無視で 行だけ追加で構いません。
- ベストアンサー
- オフィス系ソフト
- 空白行の削除について
いつもお世話になっております。 どうぞよろしくお願いします。 1行目から100行目までのデータが入力されています。 次に行をあけてデータが入っています。 コマンドボタンでデータとデータの間の空白行を削除したいと思っています。 ご教授よろしくお願いします。
- ベストアンサー
- Visual Basic
お礼
完璧です。意図したとおりになりました。 ありがとうございます。本当に助かりました!