名前が定義されている範囲以下の行を全て削除する
 セルA1からセルA10の範囲に「サンプル」という名前を定義してあるとします。
 セルA10より下の行の不要なデータを削除するために、A10より下の行を削除します。
 サンプルマクロでは、名前が付いた範囲をGotoメソッドを使ってアクティブにして
から、選択されている範囲の行数をカウントして、取得した行数の次の行からシートの
一番下の行(65536行目)までを削除しています。

Sub Sample()

    Dim my_Row As Long
    
    Application.Goto Reference:="サンプル"
    my_Row = Selection.Rows.Count
    Application.Rows(my_Row + 1 & ":65536").Delete
    
End Sub

 Gotoメソッドは、任意のブック内の任意のセル範囲を選択します。
 構文は次のとおりです。

<構文> expression.Goto(Reference, Scroll)

expression:必ず指定します。Applicationオブジェクトを指定します。
Reference :省略可能です。移動先を指定します。Rangeオブジェクト、R1C1形式の
      セル参照文字列です。この引数を省略すると、移動先は直前にGotoメソッド
      を使ったときのセル範囲になります。
Scroll  :省略可能です。移動先セル範囲の左上端がウィンドウの左上端に表示される
      ように、ウィンドウをスクロールするには、Trueを指定します。
      ウィンドウをスクロールしないようにするには、Falseを指定します。
      既定値はFalseです。

Excel97



戻る


Excel Word Access VBA! モーグ