1行置きにする行挿入(Insert)最終更新日:2013-05-141行置きにする行挿入(Insert)A列に連続データが入っているとします。これを1行置きにします。Subポイントは下から行うことです。上からやると、どんどん下に追いやられてしまいます。1).End(xlUp).Rowこれで、最終行を取得しています。Rows.Countは、シートの全行数です。A列の最終行で、Ctrl+↑と操作した場合と同じになります。-1これで、1ずつカウントダウンされます。Stepを省略した場合は1になっています。1行目に連続データが入っているとして、これを1列置きにする場合は。Sub1行置きと、ほぼ同じです。Row→Columnに変更すれば、ほぼ完成です。後は、xlUp→xlToLeftに変更するだけです。1行置きにする行挿入(Insert)このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。掲載のVBAコードは自己責任で使ってください。万一データ破損等の損害が発生しても責任は負いません。