- ベストアンサー
VBAで重複していない行を削除する方法
kmetuの回答
- kmetu
- ベストアンサー率41% (562/1346)
No2です。訂正と補足です 削除のブロックで .Range("A" & i).Delete Shift:=xlUp のところを .Rows(i).Delete Shift:=xlUp に変更してください また、追加のブロックで現在はA列とB列を追加することにしていますがF列までデータがあるのでしたら .Range(.Cells(i, "A"), .Cells(i, "A").Offset(0, 1)).Copy のところを .Range(.Cells(i, "A"), .Cells(i, "A").Offset(0, 5)).Copy に変更するか 行のデータを全て追加でよければ .Rows(i).Copy に変更してください。
関連するQ&A
- 【Excel VBA】重複行の削除
はじめまして。 IDの重複を削除し、日付データを横1列にまとめるVBAについてご教示いただけますと幸いです。 ------------------------------------------------------- ▼シート1（データ入力がされているシート） A B C D E F 1 ID 日付 2 1234 1/1 1/6 1/10 1/20 3 1234 2/3 2/20 4 1234 3/2 5 7777 1/10 1/15 1/20 6 7777 2/2 2/12 2/22 7 9876 2/3 ⇓ マクロ起動後 ▼シート2（重複行を削除しまとめたシート） A B C D E F G H 1 ID 日付 2 1234 1/1 1/6 1/10 1/20 2/3 2/20 3/2 3 7777 1/10 1/15 1/20 2/2 2/12 2/22 4 9876 2/3 【補足】 列情報 ・A列…ID ・B-F列…日付（左詰め） ※日付はIDごと月毎に行が変わるため、IDによって複数行存在する場合があります。 ※A列のIDは重複しない場合もあれば、4行以上ある場合があります。 ※シート１のデータはおおよそ1000-5000行です。 ※IDに対して、日付は５つあれば問題ありません。そのためG列以降の日付を削除しても支障はございません。 ------------------------------------------------------ VBAの知識があまりなく、調べて出てきたものをコピペ使用も試みたのですが、 上手く動かす事ができませんでした…。 お力添え頂けますと幸いです…。 Windows10でエクセル2016を使用しております。 何卒宜しくお願いいたします。
- ベストアンサー
- Excel（エクセル）
- Excel2010で行ごとの重複削除
Excel2010です。 A行目 1 3 5 5 2 2 3 B行目 2 3 5 5 4 4 C行目 1 9 7 9 9 ↓ A行目 1 3 5 2 B行目 2 3 4 5 C行目 1 7 9 というように、行ごとに重複の削除をしたいと思っています。 データタブに重複の削除があるのですが、列ごとにやるようなので、一度シート全体を 行と列を入れ替えて別シートにコピーして、 １列目全体を選択して、１列目で重複の削除を実行 ２列目全体を選択して、２列目で重複の削除を実行 ・・・ というやり方もあるのですが、今扱っているエクセルは１９７行１９７列あります。 列選択、重複の削除アイコンをクリックするのを１９７回繰り返すのは大変です。 自動化する方法はないものでしょうか？
- ベストアンサー
- その他MS Office製品
- エクセルまたはVBAで重複行を削除
例えば、 A B 1 1 a 2 2 b 3 3 c 4 4 d 5 4 d 6 5 e 7 6 g 8 6 g といった表があるとします。 A列をキーに、昇順にされた一覧表です。 ここで番号が重複している行、この例では4行目と5行目、7行目と8行目がそうです。 こういった重複した行を検索して、行削除したいのですがどんな方法が可能でしょうか？ 最終的にはVBAでのイベントになるでしょうが、それ以前にエクセルで前準備などしておくようなことは必要でしょうか？ 表自体はかなり膨大な量のデータベースです。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセルＶＢＡで重複データの削除
Ａ列、Ｂ列、Ｃ列・・・とデータが入っていて、Ｂ～Ｄ列の５行目から１０行目が関連の有るデータのかたまりとします。 Ｃ～Ｄ列の全てのデータが重複している場合に、最初のほうのデータ（行番号が小さいほう）を残すものとして、重複データを削除したいのです。 削除するときは、 Ｂ～Ｄの範囲で削除する。Ａ列等は削除しない。 削除したらデータは上に詰める。 データはソートしない。 ということをやりたいのですが、簡単に出来ますでしょうか？ 良く覚えていないのですが、ネット上で色々探してみても、必ずソートしている気がしたので、ソートしない方法が知りたいのですが。
- 締切済み
- オフィス系ソフト
- マクロによる条件での行の入力と削除
初めまして、よろしくお願いします。 次のような二枚のシートがあります シート１ Ａ Ｂ Ｃ １ ２ ・ ９９ １００ ２３ １０１ ２５ １０２ ３１ １０３ ３４ １０４ ４３ １０５ ４４ １０６ ４９ １０７ ５０ １０８ ５５ １０９ ６０ １１０ １１１ ・ ・ シート２ Ａ Ｂ Ｃ １ ２ ・ ９９ １００ ２３ １ ２ ３ １０１ ２５ ４ ５ ６ １０２ ３１ ７ ８ ９ １０３ ３４ ０ １ ２ １０４ ４３ ３ ４ ５ １０５ ４４ ６ ７ ８ １０６ ４９ ９ ０ １ １０７ ５０ ２ ３ ４ １０８ ５５ ５ ６ ７ １０９ ６０ ８ ９ ０ １１０ １１１ ・ ・ シート１とシート２のA列に入っている数字が通し番号です。シート２では加えてその通し番号のデーター数字がＢ列、Ｃ列、Ｄ列に入っています。 のこシート１の通し番号３１が削除、代わりに通し番５番と５１番を追加し、 シート１ Ａ Ｂ Ｃ １ ２ ・ ９９ １００ ５ １０１ ２３ １０２ ２５ １０３ ３４ １０４ ４３ １０５ ４４ １０６ ４９ １０７ ５０ １０８ ５１ １０９ ５５ １１０ ６０ １１１ １１２ ・ ・ マクロを実行すると シート２ Ａ Ｂ Ｃ １ ２ ・ ９９ １００ ５ １０１ ２３ １ ２ ３ １０２ ２５ ４ ５ ６ １０３ ３４ ０ １ ２ １０４ ４３ ３ ４ ５ １０５ ４４ ６ ７ ８ １０６ ４９ ９ ０ １ １０７ ５０ ２ ３ ４ １０８ ５１ １０９ ５５ ５ ６ ７ １１０ ６０ ８ ９ ０ １１１ １１２ ・ ・ シート２がこように通し番号３１が入っていた行番１０２行が削除され、新たに通し番５番が行番１００に、５１番が行番１０８に挿入追加されるマクロを教えていただきたく、よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- VBA 特定の行を別シートへコピー・削除
下記のように、VBAで特定の行を抽出して別シートへコピーし、コピーした行については元リストデータを削除したいです。 具体的には、【出荷sheet】（C列注文番号は、出荷があった時に入力済）へ、注文番号に対応する行を【リストsheet】から抜き出してコピーし、コピー後は、【リストsheet】から該当行を削除したいです。 検索により調べてもうまく合致する回答が見当たらず困っています。 VBAの理解度は未熟ですが、何卒ご教授いただけると幸いです。 【リストsheet】 A列 B列 C列 D列 ・ ・ ・ Ｊ列 No. 日付 注文番号 品名 ・ ・ ・ ・ 1 1/1 A111 鉛筆 ・ ・ ・ ・ ←コピー後、削除 2 1/2 B222 ペン ・ ・ ・ ・ 3 1/5 C555 消しゴム・ ・ ・ ・ ←コピー後、削除 ・ ・ ⇓ 【出荷Sheet】 A列 B列 C列 D列 ・ ・ ・ Ｊ列 No. 日付 注文番号 品名 ・ ・ ・ ・ 1 1/1 A111 鉛筆 ・ ・ ・ ・ 3 1/5 C555 消しゴム・ ・ ・ ・
- ベストアンサー
- Excel（エクセル）
- 重複行を削除
重複する行をVBAコードで削除したいのですが A列 B列 C列 あ １ a あ １ a あ ２ a い １ a い ２ c い ２ c A列 B列 C列 あ １ a あ ２ a い １ a い ２ c のようにABC列同一文字は１行にしたいのですがVBAコード、関数の解る方ご教授願います。
- 締切済み
- Visual Basic
- Ｅｘｃｅｌ ＶＢＡで値が重複する行を削除する
Ｅｘｃｅｌ２０００を使っています。 シートＡに数千件のデータがあります。 シートＢのＥ列にある文字とシートＡのＤ列の文字が重複する場合に、シートＡの重複するセルがある行を削除する（且つできれば行のデータを抜き出すＶＢＡを作ろうと考えています。 最近ＶＢＡの初心者本をやっと理解したところで、ちんぷんかんぷんとまではいかないけど、知恵熱がでました。 仕事なので自分でなんとかすべきかと思いますが、きっかけの調べ方がまずわからない。 どなたか、解かるきっかけだけでも与えて頂けないでしょうか。とくに、別シートの値と重複する値を探す場合に何をいれるかわかればきっと道は開けると思うんですが…。 初めての質問なので、質問内容が至らなかったらもうしわけありません。
- 締切済み
- オフィス系ソフト
- Excel2003での行重複削除
Excel2003で、列のセル内容が同一の場合を削除・抽出することは可能でしょうか。例えば、次のようなイメージです。 行番号 A列 B列 行1 A1県 B1市 行2 A1県 B2市 行3 A1県 B3市 行4 A1県 B4市 行5 A2県 B5市 行6 A2県 B6市 ここから、A列が同一の行の重複を削除したいのです。上記では、行1から行4までは「A1県」で同一なので、1つの行だけ残し後の行は削除したい。B列の内容は重複削除で一部消えますが構いません。上記の場合、抽出結果は次のようになります（先頭行だけ残した場合ですが）。 行番号 A列 B列 行1 A1県 B1市 行5 A2県 B5市 データベースが大きいため、手作業で削除して行くのは大変です。適当な方法がありましたら、是非、ご教示ください。 どうぞ宜しくお願いします。
- ベストアンサー
- オフィス系ソフト
- １行複数列の中にある重複数字を削除する方法
どなたかご存じでしたらご回答よろしくお願いします。 【質問】 エクセルシートＡ列～Ｆ列に１～３１迄の数字が順不同に入っています。 これをＧ列～Ｌ列に「重複数字は１つにして昇順に並べる」方法が知りたいです。 ●エクセルシート Ａ Ｂ Ｃ Ｄ Ｅ Ｆ Ｇ Ｈ Ｉ Ｊ Ｋ Ｌ 4 14 20 19 4 19 4 14 19 20 ←重複数字は１つになる。 15 5 9 5 9 15 6 12 12 24 6 12 24 ←重複数字は１つになる。 4 26 8 6 4 6 8 26 ●注意事項 ・使用するエクセルは２０１０です。 以上、よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
補足
返信ありがとうございます。 マクロを実行してみたのですが、 データが多すぎて時間がかかってしまったのと、 できたところとできなかったところがあるみたいで 返信が遅れてしまいました。 できる所とできない所がなざできるのかわかりません。 どうすればいいでしょうか？ 宜しくお願いします。