VBAサンプル集
1行置きにする行挿入(Insert)

ExcelマクロVBAの実用サンプル、エクセルVBA集と解説
最終更新日:2013-05-14

1行置きにする行挿入(Insert)


A列に連続データが入っているとします。


これを1行置きにします。

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になっています。



1行目に連続データが入っているとして、これを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


1行置きと、ほぼ同じです。


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) ・連続セル範囲の選択のまとめ
1行置きにする行挿入(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で1個のセル値を取得 ・Excel.Applicationで1個のセル値を取得 ・ExecuteExcel4Macroで100個のセル値を取得 ・Excel.Applicationで100個のセル値を取得 ・Excel.Applicationで100個のセル値を取得2 ・ブックを開かずにセル値を取得
罫線を簡単に引く(Borders,BorderAround)
エクセルでは、罫線を引く事が多いです。この罫線は、以外に処理時間もかかりますし、やり方によっては、VBAの行数も多くなります。とにかく、簡単に罫線を引く方法です。以下の表を作成する場合です。罫線を引く順番等、いろいろありますが、とにかく短いコードにしてみます。


新着記事NEW ・・・新着記事一覧を見る

数字(1~50)を丸付き数字に変換するVBA|VBA技術解説(2022-11-15)
TEXTAFTER関数(テキストの指定文字列より後ろの部分を返す)|エクセル入門(2022-11-14)
TEXTBEFORE関数(テキストの指定文字列より前の部分を返す)|エクセル入門(2022-11-14)
TEXTSPLIT関数(列と行の区切り記号で文字列を分割)|エクセル入門(2022-11-12)
LAMBDA以降の新関数はVBAで使えるか|VBA技術解説(2022-11-11)
WRAPCOLS関数(1次元配列を指定数の列で折り返す)|エクセル入門(2022-11-08)
WRAPROWS関数(1次元配列を指定数の行で折り返す)|エクセル入門(2022-11-08)
EXPAND関数(配列を指定された行と列に拡張する)|エクセル入門(2022-11-07)
TAKE関数(配列の先頭/末尾から指定行/列数を取得)|エクセル入門(2022-11-06)
DROP関数(配列の先頭/末尾から指定行/列数を除外)|エクセル入門(2022-11-06)


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

1.最終行の取得(End,Rows.Count)|VBA入門
2.RangeとCellsの使い方|VBA入門
3.変数宣言のDimとデータ型|VBA入門
4.繰り返し処理(For Next)|VBA入門
5.セルのコピー&値の貼り付け(PasteSpecial)|VBA入門
6.Excelショートカットキー一覧|Excelリファレンス
7.並べ替え(Sort)|VBA入門
8.エクセルVBAでのシート指定方法|VBA技術解説
9.マクロって何?VBAって何?|VBA入門
10.ExcelマクロVBAの基礎を学習する方法|エクセルの神髄




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


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



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