エクセルVBAでの行削除

エクセルで下記のようなデータがあり、最終行は２万くらいです。間に空白行はありません

　A　　　　B　　　C　　　　　D
年月日　営業所　担当者名　営業成績　
0708　　東京　　　○山　　　60
0708　　大阪　　　△川　　　55
0708　　東京　　　○山　　　20
0708　　名古屋　 □元　　　60
0708　　大阪　　　×谷　　　55
0708　　大阪　　　×谷　　　10
0708　　九州　　　▽尾　　　45

このデータでB列の値が「大阪」と「東京」以外を行削除
するマクロを作ろうとするのですがうまく行きません。
（実際の営業所は１０００くらいあって、必要な営業所数は１１だけなのですが）

よい方法をご存知でしたら、お教えください。

No.3 ベストアンサー 回答者： hana-hana3 回答日時： 2007/08/30 10:48

＞オートフィルターでは２つしか検索条件がつけられない、という事

なのでしょうか？

その通りです。

単純なピックアップだけなので、多数の条件がある場合には、こんな感じに複数回の処理（抽出→コピー）を繰り返すことで処理します。

Sub smple()

Sheets("Sheet1").Activate
Range("A1:D20000").AutoFilter
Selection.AutoFilter Field:=2, Criteria1:="=東京", Operator:=xlOr, _
Criteria2:="=大阪"
Range("A1:D20000").Copy Sheets("Sheet2").Range("A1")

Selection.AutoFilter Field:=2, Criteria1:="=名古屋", Operator:=xlOr, _
Criteria2:="=金沢"
Range("A3:D20000").Copy Sheets("Sheet2").Range("A65536").End(xlUp).Offset(1)

Selection.AutoFilter Field:=2, Criteria1:="=新潟", Operator:=xlOr, _
Criteria2:="=仙台"
Range("A3:D20000").Copy Sheets("Sheet2").Range("A65536").End(xlUp).Offset(1)

Selection.AutoFilter

End Sub

この回答へのお礼

何度もありがとうございました。

色々、教えていただいたおかげで、なんとかなりました。
また何かありましたら、よろしくお願いいたします。

お礼日時：2007/08/30 15:06

No.2 回答者： hana-hana3 回答日時： 2007/08/29 16:12

＞マクロで簡易化できないかと、思ったのです。

記録マクロをちょっとだけ修正したものです。
セルの範囲等、細部を修正してください。

Sheets("Sheet1").Activate
Range("A1:D1").Select
Selection.AutoFilter
Selection.AutoFilter Field:=2, Criteria1:="=東京", Operator:=xlOr, _
Criteria2:="=大阪"
Range("A1:D12").Copy Sheets("Sheet2").Range("A1")
Selection.AutoFilter

この回答へのお礼

ありがとうございます。
もうひとつ、教えていただきたいのですが・・・・

サンプルでは抽出する支社は２つなんですが、実際には１１支社あって

Selection.AutoFilter Field:=5, Criteria1:="=東京", Operator:=xlOr, _
Criteria2:="=大阪", Operator:=xlOr, _
Criteria3:="=名古屋"

と書き換えるとエラーになってしまします。

オートフィルターでは２つしか検索条件がつけられない、という事
なのでしょうか？

お礼日時：2007/08/30 09:21

No.1 回答者： hana-hana3 回答日時： 2007/08/29 14:13

＞このデータでB列の値が「大阪」と「東京」以外を行削除

するマクロを作ろうとするのですがうまく行きません。

何が上手く行かないのかわかりませんが、行や列、セルを削除するマクロは実行に時間が掛りますし、処理手順を誤ると期待通りに動いてくれません。

条件が２つなら、フィルタを掛けて別シートに転記（コピー）した方が手軽で高速かと思います。

この回答へのお礼

すみません。
説明が不足しておりまして。
一日にデータ更新のタイミング（２時間毎）に同じ作業があって、
１１回（必要な営業所数）フィルタとコピーを繰り返すのが手間だったので
マクロで簡易化できないかと、思ったのです。

もう少し考えてみます。
回答、ありがとうございました。

お礼日時：2007/08/29 14:49