エクセルで型番ごとにワークシートをマクロで作る方法

画像の型番の「2000」の４列目意外の型番を削除し２０００だけのワークシートを
マクロで作ってほしいのですが、
どのようなマクロ文かおしえて頂きたいです。
よろしくお願いします。

No.3 ベストアンサー 回答者： keithin 回答日時： 2011/10/19 00:16

これも説明が手抜きですが，2000とかはＢ列に書いてあるとして：

sub macro3()
　dim h as range
　dim w as worksheet
　set w = activesheet
　for each h in range("B4:B" & range("B65536").end(xlup).row)
　　w.copy after:=activesheet
　　range("4:65536").delete shift:=xlshiftup
　　h.entirerow.copy destination:=range("A4")
　next
end sub


まだ何か足りないなら一回ご相談を解決で閉じて，もう一度「どういう状況」で「何をしたい」のか，キチンと漏れなく考えてから新しいご相談として投稿し直してください。

No.2 回答者： mar00 回答日時： 2011/10/18 23:10

型番の「2000」だけを抜き出したシートを

作りたいという事なのでしょうか。
そうであれば型番で並べ替えて「2000」以外を
削除すればよいことなのては?　マクロは必要?
他の型番のシートも作る必要があるなら話しは
違ってきますが。

No.1 回答者： keithin 回答日時： 2011/10/18 22:06

＞４列目意外の型番を削除し２０００だけのワークシートをマクロで作ってほしい

sub macro1()
activesheet.copy after:=activesheet
range("A5:A" & range("A5").end(xldown).row).entirerow.delete
end sub
といったようなことをしたいのですか。

それとも
sub macro2()
activesheet.copy before:=activesheet
range("A5:A65536").clearcontents
end sub
といったようなことをしたいのですか。

この回答への補足

説明不足ですいませんでした。

つまりは、行にある型番ごとにワークシートに作りたいということなんです。

2000以外消して。　次のワークシートは2001以外消してというようなかんじで。

補足日時：2011/10/18 23:27