【VBA】離れた複数行を削除する

【実行結果】

行の削除するにはDeleteメソッドを使いますが、削除する行を指定するには２つの方法があります。(※離れた行はRowsによる指定はできません)

サンプルコードでは、２行目、４行目、６～８行目を削除します。

Rangeを使った行の削除

Rangeの引数で対象行を指定します。

離れている行はカンマ(,)区切り、連続した行はコロン(:)で指定します。

'２行目、４行目、６～８行目を削除
Range("2:2,4:4,6:8").Delete

1 2	'２行目、４行目、６～８行目を削除 Range("2:2,4:4,6:8").Delete

２行目、４行目、６～８行目が削除されます。

この時、２行目だけを指定する時も、開始行と終了行に2を指定しないとエラーになります。
○ Range(“2:2,
× Range(“2,

指定したら、Deleteメソッドで削除します。

対象セルを指定して、その行を削除したい場合は、EntireRowを使います。EntireRowは、指定したセルの対象行を返してくれます。

対象セル自体は、Rangeを使って指定します。

指定したら、Deleteメソッドで削除します。

'２行目、４行目、６～８行目を削除
Range("A2,A4,A6:A8").EntireRow.Delete

1 2	'２行目、４行目、６～８行目を削除 Range("A2,A4,A6:A8").EntireRow.Delete

Rangeでのセル指定では、離れているセルはカンマ(,)区切り、連続したセルはコロン(:)を使います。

サンプルコードでは、RangeでセルA2、A4、A6～A8のセルが指定されています。

なので、EntireRowは２行目、４行目、６～８行目になり、EntireRowをDeleteすることで２行目、４行目、６～８行目が削除されます。

POINT
・Rangeの引数は、全体をダブルクォーテーションで囲む
・離れているセルはカンマ(,)で区切る
・連続したセルはコロン(:)でつなげる

注意すること
連続した行はRowsで削除できましたが、離れた行ではRowsによる削除はできません。

その他テクニックは、次の記事を参考にしてください。