リストデータの１行おきに挿入する。また、１列おきに挿入するサンプルコード。

ＤＢのように使っているリストデータの１行おきに挿入する。

実行前

実行後　１行ごとに挿入されている。

コード

Sub 一行毎に挿入()

Dim i As Long

LRow = Cells(Rows.Count, 1).End(xlUp).Row

For i = LRow To 1 Step -1
Rows(i).Insert
Next i

End Sub

これだけです、結構簡単。あまり需要は感じませんが、役立つときが？？

ちなみに１列ごとに挿入する場合は以下。

コード

>|vb| Sub 一列毎に挿入() Dim i As Long LColumn = Cells(1, Columns.Count).End(xlToLeft).Column For i = LColumn To 1 Step -1 Columns(i).Insert Next i End Sub ||>