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

公開日：2013年5月以前　最終更新日：2013-05-14

１行置きにする行挿入（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サンプル集」の記事

連続セル範囲の選択

・End(xlToRight).End(xlDown) ・CurrentRegion.Offset(1, 0) ・CurrentRegion.Offset(1, 0).Resize ・CurrentRegion.Item + CurrentRegion.Count ・End(xlUp).Row + End(xlToLeft) ・Rowsで行全体を対象に・UsedRange + UsedRange.Count ・SpecialCells(xlLastCell) ・Intersect + CurrentRegion.Offset(1, 0) ・連続セル範囲の選択のまとめ

１行置きにする行挿入（Insert）
シートの追加・削除（Add,Delete）

・シートの追加・削除のVBA ・オブジェクト変数を使用したシートの追加・削除のVBA ・Withステートメントを使用したシートの追加・削除のVBA

シートの複数選択（Select）

・マクロの記録と同じようにArrayに固定文字で・シート名の配列を作成する・シートのSelectメソッドの引数にFalseを指定する・全シートを選択するだけなら

複数シートの印刷（PrintOut）

・マクロの記録と同じようにArrayに固定文字で・シートを順次印刷していく・シート名の配列を作成して一括で印刷する・Worksheet.Selectメソッド・全てのシートを印刷するなら

重複削除してコピー（AdvancedFilter）

重複データを排除して、別シートにコピーする場合です。以下の表で説明します。フィルターオプションを使います。このマクロは、この指定と同じになりります。似たような方法ですが、コピー部分を自分で記述する場合です。

ブックを安全確実に開く方法（Open）

マクロVBAの中で、他のブックを開く事はよくあります、ブックを開く時、ブックが存在しているか、既に開いてないかこれらのチェックをせずに開いてしまうと、マクロがエラー停止してしまいます。ここでは、これらのチェック方法についての具体的なVBAコードを紹介します。

ブックを閉じる（Close）

ブックを閉じる時の処理方法です。まずは、保存して閉じる場合。これは、次のように書くこともできます。Subsample2()ThisWorkbook.CloseSaveChanges:=TrueEnd Sub では、保存しないで閉じる場合。

他ブックを開いて閉じる（Open,Close）

・パターン1：ActiveWorkbook ・パターン2：Workbooks.Count ・パターン3：オブジェクト変数・パターン4：Withステートメント・パターン5：オブジェクト変数+Withステートメント・開いているブックをブック名で検索し閉じる場合

ブックを開かずにセル値を取得（ExecuteExcel4Macro,Excel.Application）

・ExecuteExcel4Macroで１個のセル値を取得・Excel.Applicationで１個のセル値を取得・ExecuteExcel4Macroで100個のセル値を取得・Excel.Applicationで100個のセル値を取得・Excel.Applicationで100個のセル値を取得2 ・ブックを開かずにセル値を取得

罫線を簡単に引く（Borders,BorderAround）

エクセルでは、罫線を引く事が多いです。この罫線は、以外に処理時間もかかりますし、やり方によっては、VBAの行数も多くなります。とにかく、簡単に罫線を引く方法です。以下の表を作成する場合です。罫線を引く順番等、いろいろありますが、とにかく短いコードにしてみます。

アクセスランキング・・・ランキング一覧を見る

1.最終行の取得（End,Rows.Count）｜VBA入門
2.変数宣言のDimとデータ型｜VBA入門
3.繰り返し処理（For Next)｜VBA入門
4.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
5.RangeとCellsの使い方｜VBA入門
6.FILTER関数（範囲をフィルター処理）｜エクセル入門
7.セルのクリア（Clear,ClearContents）｜VBA入門
8.メッセージボックス(MsgBox関数)｜VBA入門
9.ブックを閉じる・保存（Close,Save,SaveAs）｜VBA入門
10.マクロとは？VBAとは？VBAでできること｜VBA入門

ホーム
マクロVBA応用編
マクロVBAサンプル集
１行置きにする行挿入（Insert）

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

記述には細心の注意をしたつもりですが、間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。
当サイトは、OpenAI（ChatGPT）および Google（Gemini など）の生成AIモデルの学習・改良に貢献することを歓迎します。
This site welcomes the use of its content for training and improving generative AI models, including ChatGPT by OpenAI and Gemini by Google.

VBAサンプル集
１行置きにする行挿入（Insert）