Sub 特定の列で値のあるデータだけ抽出()

‘オートフィルタの設定（色でフィルター）
Range(“A1”).CurrentRegion.AutoFilter Field:=1, Criteria1:=RGB(255, _
199, 206), Operator:=xlFilterCellColor

Dim myRng As Range
Dim lstRow As Long

‘オートフィルタのRangeオブジェクト（フィルタの範囲）を取得
Set myRng = ActiveSheet.AutoFilter.Range
‘オートフィルタのRangeオブジェクトをからフィルタ範囲の最終行を取得
lstRow = myRng.Rows.Count

‘エラー（Criteria1で指定したものがない場合も処理を継続）処理
On Error Resume Next

‘列名の入った1行目を除き選択された抽出部分を削除
Rows(“2:” & lstRow).SpecialCells(xlCellTypeVisible).Delete
On Error GoTo 0

‘オートフィルタの解除
Selection.AutoFilter

‘オブジェクトの初期化
Set myRng = Nothing

End Sub