ＥＸＣＥＬでセルの値がゼロ ＯＲ ブランクの行のみ別のシートに。

質問

以下の様のＥＸＣＥＬがあります。
＜ＳＨＥＥＴ１＞
　　　Ａ　　　　Ｂ　　　
１　　　　　　　売上
２　　Ａ社　　　　０
３　　Ｂ社　　　
４　　Ｃ社　　１００　
５　　Ｄ社　　１５０
６　　Ｅ社　　　　０

＜ＳＨＨＥＴ２＞
　　　Ａ　　　　Ｂ
１　　Ｃ社　　１００
２　　Ｄ社　　１５０

と言う様にＳＨＥＥＴ１からＳＨＥＥＴ２を作りたいのですがやり方がわかりません。どなたかおわかりの方お教え願えないでしょうか。お願いします。

回答No.2

imogasi · ベストアンサー

フィルタオプションをマクロでやって見ました。
（１）Sheet1のＢ列の「売上」列のブランクのセルを、一時的に「*」におき変える。
（２）Ｃ１：Ｃ３に
売上
0
*
を入れる。
（３）ＶＢＥ画面のＭｏｄｕｌｅ１に下記をコピペする。
ＡＬＴ＋Ｆ１１（ＶＢＥ）、ＡＬＴ＋Ｉ（挿入），ＡＬＴ＋Ｍ（標準モジュール）
Sub Macro3()
Range("A1:B6").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"C1:D3"), CopyToRange:=Range("M6:N12"), _ Unique:=False
Range("M6:N12").Copy
Worksheets("Sheet2").Activate
ActiveSheet.Range("A1").Select
ActiveSheet.Paste
End Sub
実行する。A1:B6、M6:N12は適宜変えてください。
Ｃｏｐｙ以下が以外に難しい。
Ｓｈｅｅｔ２のＡ１から、結果データがコピーされる。
元のＳｈｅｅｔ１のM6:N12はＤｅｌでクリアしてください。
Worksheets("sheet1").Range("M6:N12").Clearを最後に入れてもよい。

お礼

ご回答ありがとうございます。
Range("A1:B6").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"C1:D3"), CopyToRange:=Range("M6:N12"), _ Unique:=False
Range("M6:N12").Copy部分でコンパイルエラーになります。
また、C1:C3の打ち込みとか M6:N12を後で削除と言うのは手間のような感じが
するのですが関数を使っては出来ないでしょうか？

回答No.1

Hageoyadi

ボタン一つで、って意味でしたら、他の方にお任せ。

データ→フィルタ→オートフィルタで
B列のフィルタを「０より大きい」と設定して出来上がった結果をそっくりsheet2にコピペすることで出来ます。
コレを
マクロの記録で記録すればボタン一つでってコトも出来ますが、マクロに関しては（も？）素人なので大きなことは言えません。

お礼

ご回答ありがとうございます。
やっぱり自動的にやりたいですねー
私もしっかりマクロ勉強したいですー。