連続セル範囲の選択｜VBAサンプル集

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

連続セル範囲の選択

エクセルのVBAでは、連続セル範囲に対しての処理は頻繁にでてきます。
連続セル範囲を選択したり、クリアしたり。
以下では、いろいろな記述方法を紹介します。

このような表で、データ部（B3～F7）を選択または消去する場合のいろいろなVBAの書き方を紹介します。
いろいろな書き方を紹介する都合で、かなり無理やりなVBAも含まれていることは承知おきください。

以下のVBAでは、.Selectで記載していますが、.Clear等に変更すれば消去になります。

End(xlToRight).End(xlDown)


  
    
      Sub test1()

      　　Range(Cells(3, 2), Cells(2, 2).End(xlToRight).End(xlDown)).Select

      End 
Sub

開始位置はB3に固定し、
B2の位置から、Ctrl+→、Ctrl+↓、の範囲になります。
上記のように、全てのセルが埋められている場合は良いですが、
途中に空白セルがあると、ダメですね。

CurrentRegion.Offset(1, 0)


  
    
      Sub test2()

      　　Cells(2, 2).CurrentRegion.Offset(1, 0).Select

      End Sub

非常に分かりやすい記述です。
Cells(2, 2).CurrentRegion
これで、B2～D7のセル範囲になりますので、
Offsetで、1行下にずらしています。
でも1行多いですね。
データをクリアするだけなら問題ありません。
しかし、書式クリア島の場合は、都合が悪い場合もあるかもしれません。

CurrentRegion.Offset(1, 0).Resize


  
    
      Sub test3()

      　　Cells(2, 2).CurrentRegion.Offset(1, 0).Resize(Cells(2, 2).CurrentRegion.Rows.Count
      - 1).Select

      End 
Sub

test2のセル範囲を、正しいセル範囲にResizeしています。
これは、範囲指定としては完璧ですね。
でも、VBAが長いですよね。

CurrentRegion.Item + CurrentRegion.Count


  
    
      Sub test4()

      　　Range(Cells(3, 2), Cells(2, 2).CurrentRegion.Item(Cells(2, 2).CurrentRegion.Count)).Select

      End 
Sub

CurrentRegionの最終セルを取得しています。
これも、完璧ですね。
ただ、Itemはあまり一般的ではないかもしれませんし、やはりVBAが長いですね。

End(xlUp).Row + End(xlToLeft)


  
    
      Sub test5()

      　　Range(Cells(3, 2), Cells(Cells(Rows.Count, 2).End(xlUp).Row, Columns.Count).End(xlToLeft)).Select

      End 
Sub

これは、かなり無理やりですね。
普通こんなことはしません。
この記事用にと、ちょっと無理やり書いてみました。

Rowsで行全体を対象に


  
    
      Sub test6()

      　　Range(Rows(3), Rows(Cells(Rows.Count, 2).End(xlUp).Row)).Select

      End Sub

行全体を選択しています。
クリアするだけとかなら、これでもよいですね。
シートの状態によっては都合悪くなります。
しかし、そもそもシートの使い方の基本として、1シート1表であるべきです。
場合によっては、このような指定も必要です。

UsedRange + UsedRange.Count


  
    
      Sub test7()

      　　Range(Cells(3, 2), ActiveSheet.UsedRange.Item(ActiveSheet.UsedRange.Count)).Select

      End Sub

まあ、こんな指定もできますよね、というサンプルになります。
クリア専用なら、これでも良いですね。
とにかく、見出しを残して、他を全て消去するような場合です。

SpecialCells(xlLastCell)


  
    
      Sub test8()

      　　Range(Cells(3, 2), Cells.SpecialCells(xlLastCell)).Select

      End 
Sub

これも、クリア専用になるでしょうか。

Intersect + CurrentRegion.Offset(1, 0)

Intersectメソッドを使う方法も、簡単で有効な方法です。


  
    
      Sub test9()

      　　Intersect(Cells(2, 2).CurrentRegion, Cells(2, 2).CurrentRegion.Offset(1,
      0)).Select

      End Sub

とても簡単ですし、完璧ですね。

連続セル範囲の選択のまとめ

上記以外にも、方法はいろいろあります。
また、どれが良いということではありません、ケースバイケースです。

正確に範囲選択する必要がある場合もありますが、
単にクリアするだけとか、新規シートにコピペするだけなら、
多少範囲が大きくても問題ありません。

.END(・・・)
.CurrentRegion
.UsedRange
.SpecialCells(xlLastCell)

これらの組み合わせで、ほとんどの連続セル範囲を指定することが出来ます。

同じテーマ「マクロVBAサンプル集」の記事

連続セル範囲の選択
１行置きにする行挿入（Insert）

A列に連続データが入っているとします。これを１行置きにします。ポイントは下から行うことです。上からやると、どんどん下に追いやられてしまいます。（Step2とするのもありですが、普通は下からやりましょう） Cells(Rows.Count,1).End(xlUp).Row これで、最終行を取得しています。

シートの追加・削除（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.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
3.RangeとCellsの使い方｜VBA入門
4.ひらがな⇔カタカナの変換｜エクセル基本操作
5.繰り返し処理（For Next)｜VBA入門
6.変数宣言のDimとデータ型｜VBA入門
7.ブックを閉じる・保存（Close,Save,SaveAs）｜VBA入門
8.並べ替え（Sort）｜VBA入門
9.セルのクリア（Clear,ClearContents）｜VBA入門
10.Findメソッド（Find,FindNext,FindPrevious）｜VBA入門

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

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

VBAサンプル集
連続セル範囲の選択