こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

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

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

投稿日時 - 2011-10-18 20:48:39

QNo.7080053

困ってます

質問者が選んだベストアンサー

これも説明が手抜きですが,2000とかはB列に書いてあるとして:

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


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

投稿日時 - 2011-10-19 00:16:30

ANo.3

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(3)

ANo.2

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

投稿日時 - 2011-10-18 23:10:31

ANo.1

>4列目意外の型番を削除し2000だけのワークシートをマクロで作ってほしい

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
といったようなことをしたいのですか。

投稿日時 - 2011-10-18 22:06:41

補足

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

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

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

投稿日時 - 2011-10-18 23:27:00

あなたにオススメの質問