連続セル範囲の選択
エクセルのVBAでは、連続セル範囲の選択は頻繁に行われます。
以下では、いろいろな記述方法を紹介します。
このような表で、データ部（B3〜D7）を選択または消去する方法になります。
| Sub test1() Range(Cells(3, 2), Cells(2, 2).End(xlToRight).End(xlDown)).Select End Sub |
B3〜B2、Ctrl+→、Ctrl+↓、の範囲になります。
上記のように、全てのセルが埋められている場合は良いですが、
途中に空白セルがあると、ダメですね。
| Sub test2() Cells(2, 2).CurrentRegion.Offset(1, 0).Select End Sub |
非常に分かりやすい記述です。
Cells(2, 2).CurrentRegion
これで、B2〜D7のセル範囲になりますので、
Offsetで、1行下にずらしています。
でも1行多いですね。
まあ、処理によってはダメですね。
| Sub test3() Cells(2, 2).CurrentRegion.Offset(1, 0).Resize(Cells(2, 2).CurrentRegion.Rows.Count - 1).Select End Sub |
test2のセル範囲を、正しいセル範囲にResizeしています。
これは、完璧ですね。
| Sub test4() Range(Cells(3, 2), Cells(2, 2).CurrentRegion.Item(Cells(2, 2).CurrentRegion.Count)).Select End Sub |
CurrentRegionの最終セルを取得しています。
これも、完璧ですね。
ただ、Itemはあまり一般的ではないかも知れません。
| Sub test5() Range(Cells(3, 2), Cells(Cells(Rows.Count, 2).End(xlUp).Row, Columns.Count).End(xlToLeft)).Select End Sub |
これは、かなり無理やりですね。
普通こんなことしませんよね。
この記事用にねちょっとやってみただけです。
| Sub test6() Range(Rows(3), Rows(Cells(Rows.Count, 2).End(xlUp).Row)).Select End Sub |
クリアするだけとかなら、これでもよいですね。
行全体を選択しています。
場合によっては、このような指定も必要です。
Sub test7() |
まあ、こんな指定もできますよね。
クリア専用なら、これでも良いですね。
とにかく、見出しを残して、他を全て消去するような場合ですね。
.Selectを.Clearにすれば良いです。
| Sub test8() Range(Cells(3, 2), Cells.SpecialCells(xlLastCell)).Select End Sub |
これも、クリア専用になるでしょうか。
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）
ユーザー定義関数でフリガナを取得する（GetPhonetic）
ユーザー定義関数でハイパーリンクのURLを取得（Hyperlink）
カラーのコード取得、256RGB⇔16進変換
時刻になったら音を鳴らして知らせる（OnTime）
指定文字、指定数式でジャンプ機能（Union）
「値の貼り付け」をショートカットに登録（OnKey）
「セルの結合」をショートカットに登録（OnKey）
半角カナのみ全角カナに変換する
計算式の元となる数値定数を消去する（Precedents）
新着記事 ・・・新着記事一覧を見る
VBAでファイルを規定のアプリで開く方法｜VBA技術解説（1月20日）
参照設定、CreateObject、オブジェクト式の一覧｜VBA技術解説（1月20日）
ドキュメントプロパティ（BuiltinDocumentProperties,CustomDocumentProperties）｜VBA技術解説（1月19日）
他ブックへのリンクエラーを探し解除｜VBAサンプル集（1月15日）
特殊フォルダの取得（WScript.Shell,SpecialFolders）｜VBA技術解説（1月1日）
数値範囲で表検索するVLOOKUP近似一致｜エクセル関数超技（10月5日）
エクセルVBAでのシート指定方法｜VBA技術解説（9月8日）
VBAのクラスとは（Class,Property,Get,Let,Set）｜VBA技術解説（8月28日）
VBAこれだけは覚えておきたい必須基本例文10｜VBA技術解説（8月22日）
VBAの省略可能な記述について｜ExcelマクロVBA技術解説（8月11日）
アクセスランキング ・・・ ランキング一覧を見る
1.最終行の取得（End,Rows.Count）｜VBA入門
2.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
3.変数とデータ型（Dim）｜ExcelマクロVBA入門
4.RangeとCellsの使い方｜ExcelマクロVBA入門
5.Range以外の指定方法（Cells,Rows,Columns）｜VBA入門
6.マクロって何？VBAって何？｜ExcelマクロVBA入門
7.ひらがな⇔カタカナの変換｜エクセル基本操作
8.定数と型宣言文字（Const）｜ExcelマクロVBA入門
9.繰り返し処理（For Next)｜ExcelマクロVBA入門
10.とにかく書いて見よう（Sub,End Sub）｜VBA入門
このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
なお、掲載のVBAコードは自己責任で使ってください。万一データ破損等の損害が発生しても責任は負いません。
