ＥＸＣＥＬで指定範囲に一括して行を挿入

質問

ＥＸＣＥＬで指定範囲のセルに、一括して一行置きに行を挿入出来る関数があれば教えてください。

回答No.2

keithin · ベストアンサー

関数はその場で計算結果を出させるのに使います。挿入とか削除の操作を行うモノではありません。

＞一行おきに行を挿入

応用の広い簡単で便利な方法を一つご紹介しておきます。一度実際に試して覚えておくと、後で便利です。

手順：
たとえばいま、１行から１０行までにデータがある。（１１行以下は空白になっている）
Ａ１からＡ１０に１，２，３…１０まで連番を記入する
Ａ１：Ａ１０をコピーしてＡ１１以下に貼り付ける（連番が１２３…１０、１２３…１０と２回繰り返す）
全体をＡ列の昇順で並べ替える

以上です。

お礼

ありがとうございました。私の説明不足もあり申し訳ありませんでした。

回答No.1

tom04

こんばんは！
関数ではなく、VBAになってしまいます。

＞指定範囲のセルに・・・
とあるのですが、仮に1行目～10行目の場合の行挿入の一例です。
画面左下の操作したいSheet見出し上で右クリック　→　コードの表示　→　VBE画面に
↓のコードをコピー＆ペーストしてマクロを実行してください。
（Alt+F8キー　→　マクロ　→　マクロ実行です）

Sub test() 'この行から
Dim i As Long
For i = 10 To 2 Step -1
Rows(i).Insert
Next i
End Sub 'この行まで

※　余計なお世話かもしれませんが、範囲指定したセルのみの行挿入は↓のような感じになります。

Sub test2() 'この行から
Dim i, j, k As Long
j = Selection(1).Column
k = Selection(Selection.Count).Column
For i = Selection(Selection.Count).Row To Selection(1).Row Step -1
Range(Cells(i + 1, j), Cells(i + 1, k)).Insert (xlDown)
Next i
End Sub 'この行まで

test2の方は必ず範囲指定した後にマクロを実行してください。
こんなんで参考になりますかね？m(_ _)m

お礼

丁寧にお教え頂き大変ありがとうございました。さっそく実施しまして、思ったとおり行挿入ができました。