エクセルマクロ: 指定範囲の行を削除する方法

日付:

 


エクセルマクロ: 指定範囲の行を削除する方法

　エクセルのVBA（Visual Basic for Applications）を使用して、指定された範囲の行を削除するマクロを作成する方法を解説します。このマクロは、特定の条件を満たす行を一括で削除する際に便利です。

1. マクロの目的と概要

このマクロは、指定された範囲の行を削除するために使用されます。具体的には、A1からA3までのセルを含む行を削除します。


2. コードの詳細

以下がマクロの詳細です。

Sub DeleteRowsInRange()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1") ' シート名を適切に変更してください
    
    On Error Resume Next
    ws.Range("A1:A3").EntireRow.Delete
    On Error GoTo 0
End Sub

  • Sub DeleteRowsInRange() は、マクロのエントリーポイントです。
  • Dim ws As Worksheet でワークシートオブジェクトを宣言しています。シート名は適切に変更してください。
  • On Error Resume Next と On Error GoTo 0 はエラーハンドリングのためのコードです。指定された範囲が存在しない場合でもエラーが発生しないようにしています。
  • ws.Range("A1:A3").EntireRow.Delete は、指定された範囲の行を削除するコードです。


3. 実行手順

以下は、マクロを実行する手順です。

  1. エクセルファイルを開いて、Alt + F11 キーを押してVBAエディタを開きます。
  2. 新しいモジュールを作成して、上記のコードを貼り付けます。
  3. シート名を適切に変更してください。
  4. マクロを実行すると、指定された範囲の行が削除されます。

注意:

  • シート名は、実際のエクセルファイルに合わせて適切に変更してください。
  • エラーハンドリングを追加しているため、指定された範囲が存在しない場合でもエラーが発生しません。必要に応じて修正してください。



今日のメモ

　エヌビディア、マイクロソフト好調です。特にエヌビディアは５月２２日が決算です。
　

マイクロソフト

　株価　今日４３０．１３９９ドル／株（アメリカ時間　５／２１　１２時４２分時点）
　　　　昨日４２５．３４００ドル／株（アメリカ時間　５／２０　１６時００分時点）
　OVER累計　   ３８２２
　UNDER累計　 ４２０８
　株価上昇中です。買い優勢です。

エヌビディア

　株価　今日９５０．２７５０ドル／株（アメリカ時間　５／２１　１２時４４分時点）
　　　　昨日９４７．８０００ドル／株（アメリカ時間　５／２０　１６時００分時点）
　OVER累計　  １８１８
　UNDER類家　２１７４
　株価上昇中です。買い優勢です。