お題「わたしの仕事場」 Sub 抽出転記() Worksheets("データ").Range("A:C").AutoFilter 1, "<>解約" MsgBox "オートフィルターを設定し解約以外を抽出。" Worksheets("データ").Range("A1").CurrentRegion.Copy Worksheets("抽出").Range("A1") MsgBox "転…