Excel
VBA

【エクセル】VBAで2行ごとに列を挿入するマクロ

このマクロを使うとどんな結果になるか

aaa
bbb
ccc
ddd
eee
fff

という列が、下記にのように変わります!

aaa
bbb

ccc
ddd

eee
fff

長い行のテキストをいちいちエンターで改行して区切るのが面倒なので作成しました。

for文を利用する

Dim i As Integer
  For i = 3 To 100
    Rows(i).Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    i = i + 2
  Next

For i = 3 To 100
To以降の数字は必要な行数に変更してください。
なお、上から適用されていくため、(元々の行数×1.5行)で設定すると良いと思います。

Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
この部分で列を挿入していきます。

削除など、他の操作をしたければ「マクロの記録」でコードを表示させ、
この箇所に上書きする形でコピペすると他の機能ができます
 例)一行飛ばしで列を削除するマクロ
その際は、iの数字や、i = i + 1にするなど、数字を修正することも忘れないでください。