ベストアンサー

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

2002/07/11 22:18

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

yukiri
お礼率25% (13/51)

オフィス系ソフト
回答数3
ありがとう数2

みんなの回答 （3）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

papayuka
ベストアンサー率45% (1388/3066)

2002/07/11 22:35 回答No.1

こんにちは。間に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

質問者

お礼 2002/07/11 23:10

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

ログインすると、全ての回答が全文表示されます。

その他の回答 (2)

imogasi
ベストアンサー率27% (4737/17070)

2002/07/11 23:00 回答No.3

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

質問者

お礼 2002/07/11 23:11

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

ログインすると、全ての回答が全文表示されます。

comv
ベストアンサー率52% (322/612)

2002/07/11 22:53 回答No.2

こんばんは！１案・データ列の隣の空き列に1～300(データ末行)まで連番を　ふって下さい　（1 2　と入力した２行を選択してオートフィル）・同列のデータ末の次の行から1.5～300.5まで＋１ずつ　連番をふって下さい　（1.5 2.5 と入力した２行を選択してオートフィル）・データ列＋連番列までを選択　データ　並べ替え　昇順　優先キーを連番列に指定・並べ終わったら　連番列を削除で試してみて下さい

ログインすると、全ての回答が全文表示されます。