エクセルの行挿入について

質問

エクセルで、すでに300行ほどのデータが入っていますが、その1行1行にもう一行挿入しなければならないのです。F4キーを使ってする方法以外、一発で、挿入できる方法を教えてください。宜しくお願いします。

回答No.1

papayuka · ベストアンサー

こんにちは。

間に1行づつ挿入するって意味でしょうか？
下記マクロでA列にデータがある場合、偶数行に1行挿入します。

i Mod 2 <> 0 にすれば奇数行になるハズです。
i = 1 を変えれば開始行を変更出来ます。
.Range("A" & i) の　"A" を変えれば データ列を変えられます。

必ずテスト環境で試して下さい。

Sub test()
Dim i As Long
　i = 1
　With ActiveSheet
　　Do While .Range("A" & i) <> ""
　　　If i Mod 2 = 0 Then
　　　　 .Rows(i).Insert
　　　End If
　　　i = i + 1
　　Loop
　End With
End Sub

お礼

ありがとうございます。早速試してみました。感動的に、一発で、挿入できました。ありがとうございます。

回答No.3

imogasi

VBAで＃１に既にご回答がありますが、もう少し短く
Sub test01()
For i = 1 To 100
Cells(i * 2, 1).Select
Selection.EntireRow.Insert
Next i
End Sub
で出来ます。
ご納得はＡ１～Ａ１００まで1～１００までの数を入れる。
（Ａ１に１、Ａ２に２を入力。Ａ１：Ａ２を＋でＡ１００まで引っ張る。）そして上記を実行。

お礼

ありがとうございます。早速これも試してみます。

回答No.2

comv

こんばんは！

１案
・データ列の隣の空き列に1～300(データ末行)まで連番を
　ふって下さい
　（1 2　と入力した２行を選択してオートフィル）
・同列のデータ末の次の行から1.5～300.5まで＋１ずつ
　連番をふって下さい
　（1.5 2.5 と入力した２行を選択してオートフィル）

・データ列＋連番列までを選択　データ　並べ替え
　昇順　優先キーを連番列に指定
・並べ終わったら　連番列を削除

で試してみて下さい