１行置きにする行挿入（Insert）

最終更新日：2013-05-14

A列に連続データが入っているとします。

これを１行置きにします。

Sub sample1()
　　Dim i As Long
　　For i = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
　　　　Rows(i).Insert
　　Next i
End Sub

ポイントは下から行うことです。

上からやると、どんどん下に追いやられてしまいます。

（Step 2とするのもありですが、普通は下からやりましょう）

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

これで、最終行を取得しています。

Rows.Count

は、シートの全行数です。

A列の最終行で、Ctrl+↑と操作した場合と同じになります。

Step -1
これで、1ずつカウントダウンされます。

Stepを省略した場合は1になっています。

１行目に連続データが入っているとして、これを１列置きにする場合は。

Sub sample2()
　　Dim i As Long
　　For i = Cells(1, Columns.Count).End(xlToLeft).Column To 1 Step -1
　　　　Columns(i).Insert
　　Next i
End Sub

１行置きと、ほぼ同じです。

Row→Column

に変更すれば、ほぼ完成です。

後は、

xlUp→xlToLeft

に変更するだけです。

１行置きにする行挿入（Insert）

このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。

記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
なお、掲載のVBAコードは自己責任で使ってください。万一データ破損等の損害が発生しても責任は負いません。

ExcelマクロVBAサンプル集 | １行置きにする行挿入（Insert） | ExcelマクロVBAの実用サンプル、エクセルVBA集と解説