質問: false range("a1").select end sub
回答: つまり整理すると... 1.マクロ実行前の事前の準備として。 商品名シートは,マクロを実行の前に「事前に手動で」作成済みである 商品名シートの4行目は,「事前に手動で」項目行を記入済みである 2.マクロの実行によって。 シート1(注文データ)から商品名シートに,シート名に合致するデータを転記したい データを転記したら,転記したデータはシート1から抹消したい sub macro1() dim w as worksheet ’全てのシートを巡回する for each w in worksheets if w.name <> "シート1" then ’各商品名のシートについて if application.countif(worksheets("シート1").range("a:a"), w.name) > 0 then ’そのシート名に合致するデータがあったので,絞ってコピーして抹消する worksheets("シート1").range("a:e").autofilter field:=1, criteria1:=w.name worksheets("シート1").autofilter.range.offset(1, 1).copy _ destination:=w.range("b65536").end(xlup).offset(1) worksheets("シート1").autofilter.range.offset(1).entirerow.delete shift:=xlshiftup end if end if next worksheets("シート1").autofiltermode = false end sub