[[20100611094103]]　『マクロで行の削除』（りりあん）　ページの最後に飛ぶ

『マクロで行の削除』（りりあん）
WinXP Excel2002

 	［A］	　［B］	［C］	［D］　　　　［E］	　　［F］	　　　［G］　　［H］
 [1]　受注番号　　　比較　施主名　電話番号　　　　引渡日　　入居日　　事業所名　月
 [2]　*************　1	桐田　***-****-****　H22.03.31　H22.05.01　札幌支店　5月
 [3]　*************　1	畑田　***-****-****　H22.01.18　H22.05.15　愛知北支店　5月
 [4]　*************　1　　 福井　***-****-****　H22.05.25　H22.05.27　沖縄支店　　5月
 [5]　*************　1	川端　***-****-****　H22.03.31　H22.05.15　越谷支店　5月

 上記のようなリストがありますマクロでＧ列に入力されている不要な支店のデータ（行）を
 削除したいのですがどうしたらよいでしょうか？
 残したい支店名は
 札幌支店・青森支店・八戸支店・岩手支店・仙台支店・秋田支店・山形支店・
 福島支店・いわき支店・新潟支店・上越支店・長野支店・松本支店・茨城支店・
 つくば支店・宇都宮支店・小山支店・群馬支店・両毛支店以上の支店です。

 フィルタオプションの設定(AdvancedFilter)を利用すればできそうですね。
(PON)

 PONさんご回答ありがとうございます。

 フィルタオプションでマクロを組んだことがあるのですが、いつもデバックが
 起きるんですよねぇ～？？？

 10:17　りりあん

 どの様なエラーメッセージなのかな？
他の方法として、H列にCOUNTIF関数を設定してオートフィルターで抽出する等もあると思います。
(PON)

 PONさん以前別の資料で設定したフィルタオプションでマクロです。

 いつもここの部分でオートメーションエラーだったと思いますが
 デバックを起こしてしまいます。

 Sheets("店舗").Columns("A:AB").AdvancedFilter Action:=xlFilterCopy, _
         CriteriaRange:=Range("A1:AB2"), CopyToRange:=Range("A5"), Unique:=False

 調子がいいと引っ掛からずに最後までマクロが実行されるときもありますが、６・７割がた
 引っ掛かってしまいます。

 10:51　りりあん

 よく判りませんがフィルタの対象範囲が広すぎるのかな？
A1セルからのアクティブセル領域にすると良いのかな・・
Sheets("店舗").Range("A1").CurrentRegion.AdvancedFilter
(PON)

 PONさんありがとうございます。

 やってみます。

 11:34　りりあん

コメント返信：

[ 一覧(最新更新順) ]

[[20100611094103]] 『マクロで行の削除』（りりあん） ページの最後に飛ぶ

[[20100611094103]]　『マクロで行の削除』（りりあん）　ページの最後に飛ぶ