エクセルの行の作り方

質問

膨大なエクセルのデータがあります。
一行づつがひとつのデータなのですが、一行ごとに空の行間を入れたいのです。
簡単にできる方法はないでしょうか？
”挿入”で一行ずつ入れているのですが時間がかかって作業がはかどりません。
エクセルに詳しい方よろしくお願いいたします。

回答No.1

keithin · ベストアンサー

たとえばいまＡ列からＦ列まで使ってるとします。
１行目タイトル行
２行目から膨大な２０００行ぐらいまでデータとして。

Ｇ２からＧ２０００まで，数字の連番で１，２，３………１９９９までずらっと数字を並べます
Ｇ２に１を記入
Ｇ３に２を記入
Ｇ２：Ｇ３を選び，下向けにえいやーーーーっとオートフィルドラッグ（またはＷクリックオートフィル）で。

作成した連番をコピー，Ｇ２００１以下に貼り付けます
全体を選択，Ｇ列の昇順で並べ替えて完成。

回答No.4

tom04

こんばんは！

VBAになってしまいますが、一例です。

＞膨大なエクセルのデータがあります
実際どの程度のデータか判りませんが、数万行あっても数秒もかからずにできる方法です。
尚、データはA列の1行目からあるとします。

画面左下の操作したいSheet見出し上で右クリック　→　コードの表示　→　VBE画面のカーソルが点滅しているところに
↓のコードをコピー＆ペースト　→　Excel画面に戻りマクロを実行してみてください。
（Alt＋F8キー　→　マクロ　→　マクロ実行です）

Sub 行挿入() 'この行から
Dim lastRow As Long
lastRow = Cells(Rows.Count, "A").End(xlUp).Row
Application.ScreenUpdating = False
Range("A:A").Insert
With Range(Cells(1, "A"), Cells(lastRow, "A"))
.Formula = "=row()"
.Value = .Value
End With
Range(Cells(1, "A"), Cells(lastRow, "A")).Copy Cells(Rows.Count, "A").End(xlUp).Offset(1)
Range("A1").CurrentRegion.Sort key1:=Range("A1"), order1:=xlAscending, Header:=xlNo
Range("A:A").Delete
Application.ScreenUpdating = True
MsgBox "処理完了"
End Sub 'この行まで

※　1度だけの操作になりますので、わざわざマクロでやる必要はないかもしれません。m(_ _)m

お礼

ありがとうございました。マクロでのやり方知りませんでした。難しそうですが勉強してみます。

回答No.3

teresuta

http://www.softel.co.jp/blogs/tech/archives/4488

いっきにはいかないようですが、作業列を使えばいけそうですね。

このURLわかりやすいので、ぜひトライしてみてください＾＾

お礼

ありがとうございました。
大変参考になりました。

回答No.2

noname#235638

http://www.relief.jp/itnote/archives/003216.php

このページが、なにか参考になるかも？しれません。
下のほうの関連する記事も、参考になるかも？です。