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

質問

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

回答No.3

keithin · ベストアンサー

これも説明が手抜きですが，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

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

回答No.1

keithin

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

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以外消してというようなかんじで。