セルの値が同じ行を条件に従って行削除するマクロ
A~E列までデータがあり
行数は約30,000行あります。
A列は半角英数字と-で桁数は11桁又は14桁です。
数字のみもあれば数字と英字の組み合わせもあります。
(英字はどこの桁にあるか何個あるかは不規則です)
例
ABCD123456789X
124345678901234
55555-55555
ABC12345DEF678
E列には半角の 1 か 2 しかありません。
A列が同じ値の行を検出して重複している行は1行だけ残して
後は行削除をしたいです。
行削除はE列の値によって判定したいです。
重複行は1つの値に対して何行あるか不明です。
30,000行のうち、重複行を削除すると10,000行くらいになる予定です。
(1)重複行にてE列の値が1だけの場合
どれでもいいので1行残して残りは行削除
(2)重複行にてE列の値が2だけの場合
どれでもいいので1行残して残りは行削除
(3)重複行にてE列の値が1も2もある場合
E列の値が2の行をどれでもいいので1行残して残りは削除
例
(1)
1234567890XXXX-1
1234567890XXXX-1
1234567890XXXX-1
↓
1234567890XXXX-1
(2)
123ABCDE901234-2
123ABCDE901234-2
↓
123ABCDE901234-2
(3)
12345678901234-1
12345678901234-2
↓
12345678901234-2
ABC45678901234-1
ABC45678901234-2
ABC45678901234-1
ABC45678901234-2
↓
ABC45678901234-2
手作業では5時間かかりましたがミスだらけです。
まだ数ファイル残っており手作業では厳しいのでマクロを
作成したいのですが、どう記述していのかまったく検討が付きません。
どうかよろしくお願いします。
お礼
おおおーーー、ほんとに一発だ。 Excelよりもぜんぜん早いではありませんか! 否、比較になりません。 自動車と人力車、いや新幹線とリヤカーぐらいの差があります。 きのうExcelとさんざん格闘したのはなんだったのでしょう。 というか高価なExcelになぜ一発削除機能が付いていないのだろう・・ とにかくありがとうございました。 別件の質問をまた投稿するのでよろしかったらご覧ください。m(_ _)m