不要なデータを切り取って別のシートに貼りつける

質問

シート1に色々なデータが並べています。A列～J列、5000行くらいです。
J列に「0」「1」「#N/A」の三つの値がバラバラに並べています。
フィルタで昇順にし、「0」「1」「#N/A」と奇麗に並べます。
「0」と「#N/A」の行を切り取ってシート2へ貼り付けます。
そして次にG列に「ダウンロード」以外の文字があった場合も同様に切り取ってシート2に貼り付ける

といった作業をしています。作業が大変なので、マクロで実行したいのですが、コードの記述が分からないのです。教えて下さい。
宜しくお願いします。

回答No.2

mt2015

シート1の1行目は項目名が入っているものとします。
添付の図のL1:M3を抽出条件として使用します。
L1、M1にはG1、J1と同じ項目名を入れておきます。
L2に「<>ダウンロード」、M3に「<>1」と入れておきます。

これで、「G列の値が『ダウンロード』以外」又は「J列の値が1以外」の行だけが抽出条件となります。

マクロはこんな感じ
Sub Sample()
　　Range("A:J").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range("L1:M3"), CopyToRange:=Worksheets(2).Range("A1"), Unique:=False
End Sub

空のSheet2が有る状態で実行してください。

回答No.1

aokii

エクセルの「開発→マクロの記録」で作ってみてはいかがでしょう。
あるいは、マクロは大変ですので、できれば、手動をお勧めします。