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

最終更新日：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サンプル集」の記事

連続セル範囲の選択

エクセルのVBAでは、連続セル範囲に対しての処理は頻繁にでてきます。連続セル範囲を選択したり、クリアしたり。以下では、いろいろな記述方法を紹介します。このような表で、データ部（B3～F7）を選択または消去する場合のいろいろなVBAの書き方を紹介します。

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

マクロVBAでいろいろ処理する場合、作業用のシートを追加し、そのシート上で処理した結果を他シートに反映させる等は良く使うテクニックです。このような場合に使う、シートの追加と削除についてのVBA例文です。シートの追加・削除の基本および文法については、以下を参照してください。

シートの複数選択（Select）

複数のワークシートを選択方法です。いわゆる作業グループになります。手動では作業グループはかなり注意が必要ですが、VBAではシートのコピーや印刷等で必要になる場合もでてきます。複数シートの印刷（PrintOut）以下では、シート名は、「Sheet1」「Sheet2」「Sheet3」として、VBAサンプルを記載してい…

複数シートの印刷（PrintOut）

複数シートをVBAで印刷する方法です。ワークシートが「Sheet1」「Sheet2」「Sheet3」…があるものとします。そのような場合に、指定のワークシートのみ印刷する場合です。以下では、テスト実行しやすいように、Preview:=True これでプレピュー表示にしています。

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

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

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

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

ブックを閉じる（Close）

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

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

他のExcelブックを開いて、何らかの処理（転記等）を実行した後に、そのブックを閉じる。VBAでは、よくあるパターンですね。ワークシート関数では出来ない、VBAならではの処理とも言えます。以下では、他ブックを開いて閉じる場合の基本的なVBAサンプルと簡単な解説をします。

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

「ブックを開かずにセル値を取得」に関する検索が非常に多いようです。おそらく、ExecuteExcel4Macroに関連しているとか、もしくは、大量のファイルがある為、マクロVBAの処理時間がかかってしまうと言うものでしょう。ExecuteExcel4Macroについての簡単な解説は、「ExecuteExcel4Ma…

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

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

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

1.最終行の取得（End,Rows.Count）｜VBA入門
2.Excelショートカットキー一覧｜Excelリファレンス
3.変数宣言のDimとデータ型｜VBA入門
4.RangeとCellsの使い方｜VBA入門
5.繰り返し処理（For Next)｜VBA入門
6.マクロって何？VBAって何？｜VBA入門
7.Range以外の指定方法（Cells,Rows,Columns）｜VBA入門
8.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
9.セルに文字を入れるとは（Range,Value）｜VBA入門
10.とにかく書いてみよう（Sub,End Sub）｜VBA入門

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

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

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

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