１行置きにする行挿入（Insert）
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
に変更するだけです。
同じテーマ「マクロVBAサンプル集」の記事
連続セル範囲の選択
１行置きにする行挿入（Insert）
ユーザー定義関数でフリガナを取得する（GetPhonetic）
ユーザー定義関数でハイパーリンクのURLを取得（Hyperlink）
カラーのコード取得、256RGB⇔16進変換
時刻になったら音を鳴らして知らせる（OnTime）
指定文字、指定数式でジャンプ機能（Union）
「値の貼り付け」をショートカットに登録（OnKey）
「セルの結合」をショートカットに登録（OnKey）
半角カナのみ全角カナに変換する
計算式の元となる数値定数を消去する（Precedents）
新着記事 ・・・新着記事一覧を見る
エクセルVBAでのシート指定方法｜VBA技術解説（9月8日）
VBAのクラスとは（Class,Property,Get,Let,Set）｜VBA技術解説（8月28日）
VBAこれだけは覚えておきたい必須基本例文10｜VBA技術解説（8月22日）
VBAの省略可能な記述について｜ExcelマクロVBA技術解説（8月11日）
複数条件判定を行う時のコツ｜ExcelマクロVBA技術解説（7月11日）
For Next の使い方いろいろ｜VBA技術解説（6月14日）
VBAを定型文で覚えよう｜ExcelマクロVBA技術解説（3月26日）
VBAスタンダード試験対策まとめ｜MOS VBAエキスパート対策（3月16日）
ユーザーフォームとメニューの操作｜MOS VBAエキスパート対策（3月14日）
ファイルの操作｜MOS VBAエキスパート対策（3月14日）
アクセスランキング ・・・ ランキング一覧を見る
1.最終行の取得（End,Rows.Count）｜VBA入門
2.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
3.変数とデータ型（Dim）｜ExcelマクロVBA入門
4.Range以外の指定方法（Cells,Rows,Columns）｜VBA入門
5.RangeとCellsの使い方｜ExcelマクロVBA入門
6.定数と型宣言文字（Const）｜ExcelマクロVBA入門
7.マクロって何？VBAって何？｜ExcelマクロVBA入門
8.とにかく書いて見よう（Sub,End Sub）｜VBA入門
9.繰り返し処理（For Next)｜ExcelマクロVBA入門
10.ひらがな⇔カタカナの変換｜エクセル基本操作
このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
なお、掲載のVBAコードは自己責任で使ってください。万一データ破損等の損害が発生しても責任は負いません。
