Excel2007 マクロ 表の値の抽出

下記2つの表がSheet1にあります。
<野菜>
番号製品名外国産国産その他
AA-1かぼちゃ22
BN-3ぴーまん5
JK-2れたす51
KJ-76いも
TT-9とまと62

<くだもの>
番号製品名外国産国産その他
UI-4ばなな6
YU-34りんご49
i-45なし53
IO-34ぱいなっぷる6
OO-3めろん

外国産、国産、その他のいずれかの列に数値が入って
いる行をコピーしてSheet2に貼り付けるマクロを考えています。
マクロ超初心者ですので、文が長くなっても構いません。
元データの画像を添付します。

容易なマクロのサンプルをご紹介いただけませんでしょうか。

No.1 ベストアンサー 回答者： keithin 回答日時： 2010/04/20 00:08

sub macro1()

worksheets("Sheet1").usedrange.copy destination:=worksheets("Sheet2").range("A1")

'判りやすいように。通常はこういう風にしない
worksheets("Sheet2").select

range("A:E").autofilter field:=2, criteria1:="<>"
range("A:E").autofilter field:=3, criteria1:="="
range("A:E").autofilter field:=4, criteria1:="="
range("A:E").autofilter field:=5, criteria1:="="

worksheets("Sheet2").autofilter.range.offset(1).delete shift:=xlshiftup
worksheets("Sheet2").autofiltermode = false
end sub

この回答へのお礼

ご回答ありがとうございました。一文一文確認して、勉強します。本当に助かります。

お礼日時：2010/04/20 10:31