Sample Macro  行列操作 [応用型] Previous Next

1) 指定年月日以前のデータを削除する このページのトップへ もくじへ 使用可能なExcelのバージョン
'=================================================================================
Sub 指定年月日以前のデータを抽出してその行を削除する()
    Worksheets("SSS").Activate                  '※1
    Range("A1").Select
    If Not ActiveSheet.AutoFilterMode Then      'オートフィルターモードでないなら
        Selection.AutoFilter                    'オートフィルターをオンにする
    End If
    Rows("2:2").Select                          '2行目を選択する
    Range(Selection, Selection.End(xlDown)).Select '2行目から下端行までを選択する
    抽出列 = 1                                  '※2 A列
    抽出キー = "<=2012/6/30"                    '※3 この年月日以前
    Selection.AutoFilter Field:=抽出列, Criteria1:=抽出キー 'オートフィルターする
    Selection.Delete Shift:=xlUp                '抽出された行を削除する
    Selection.AutoFilter                        'オートフィルターをオフにする
End Sub
'=================================================================================
<コメント>
※1 SSSにはシート名を記入
※2 オートフィルターする列の列番号を記入
※3 オートフィルターのキーを記入
 
サンプルブックのダウンロードは ここをクリック (YNxv254_RowDelete.xls 46KB)
※ 一旦、ブックをハードディスクに保存し、開き直してから実行してください。

Excel VBA Macro