- 締切済み
重複行を削除
重複する行をVBAコードで削除したいのですが A列 B列 C列 あ 1 a あ 1 a あ 2 a い 1 a い 2 c い 2 c A列 B列 C列 あ 1 a あ 2 a い 1 a い 2 c のようにABC列同一文字は1行にしたいのですがVBAコード、関数の解る方ご教授願います。
- kuma0220
- お礼率77% (279/361)
- Visual Basic
- 回答数3
- ありがとう数3
- みんなの回答 (3)
- 専門家の回答
みんなの回答
- ushi2015
- ベストアンサー率51% (241/468)
済みません、No2です No1の方が回答してましたね。 ActiveSheet.Range("$A$1:$C$6").RemoveDuplicates Columns:=Array(1, 2, 3), Header:=xlNo
- ushi2015
- ベストアンサー率51% (241/468)
こんにちは Excel2007以降であれば3列選択してリボンのデータタブの重複の削除で出来ると思います。
お礼
ありがとうございます。勉強になりました
- kkkkkm
- ベストアンサー率65% (1620/2459)
http://okwave.jp/qa/q9218228.html と同じ質問ですね。 同じ回答をしておきます。 Excel2007以降でしたら以下のコードになります ActiveSheet.Range("$A$1:$C$6").RemoveDuplicates Columns:=Array(1, 2, 3), Header:=xlNo Excel2003まで含むと以下になります。こちらの場合、範囲には見出し行が必要になりますので1行目に見出しを入れて2行目からデータとしてください。 Sheets("シート名").Range("$A$1:$C$7").AdvancedFilter _ Action:=xlFilterCopy, _ CopyToRange:=Sheets("シート名").Range("$A$1"), _ Unique:=True
お礼
ありがとうございます。
関連するQ&A
- 重複行の枠線内内容分のみを削除
Excel2013ですがフォームがあり重複する行をExcel枠線を残しVBAコードでセル項目、数値のみ削除したいのですが A列 B列 C列 あ 1 a あ 1 a あ 2 a い 1 a い 2 c い 2 c A列 B列 C列 あ 1 a あ 2 a い 1 a い 2 c のようにABC列同一文字は1行にしExcel枠線を残すVBAコード、関数の解る方ご教授願います。 ActiveSheet.Range("$A$1:$C$6").RemoveDuplicates Columns:=Array(1, 2, 3), Header:=xlNo 上記の以前回答頂いたVBAコードで内容は問題なかったのですが枠線まで削除されるので改めて枠線を作っていますどうかよろしくお願いします。
- ベストアンサー
- Visual Basic
- 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 というように、行ごとに重複の削除をしたいと思っています。 データタブに重複の削除があるのですが、列ごとにやるようなので、一度シート全体を 行と列を入れ替えて別シートにコピーして、 1列目全体を選択して、1列目で重複の削除を実行 2列目全体を選択して、2列目で重複の削除を実行 ・・・ というやり方もあるのですが、今扱っているエクセルは197行197列あります。 列選択、重複の削除アイコンをクリックするのを197回繰り返すのは大変です。 自動化する方法はないものでしょうか?
- ベストアンサー
- その他MS Office製品
- 【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行以上ある場合があります。 ※シート1のデータはおおよそ1000-5000行です。 ※IDに対して、日付は5つあれば問題ありません。そのためG列以降の日付を削除しても支障はございません。 ------------------------------------------------------ VBAの知識があまりなく、調べて出てきたものをコピペ使用も試みたのですが、 上手く動かす事ができませんでした…。 お力添え頂けますと幸いです…。 Windows10でエクセル2016を使用しております。 何卒宜しくお願いいたします。
- ベストアンサー
- Excel(エクセル)
- 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市 データベースが大きいため、手作業で削除して行くのは大変です。適当な方法がありましたら、是非、ご教示ください。 どうぞ宜しくお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセル関数での重複削除
以下のようなエクセル表があったとします。 【列A】 【列B】 【行1】 1 A社 【行2】 2 B社 【行3】 3 B社 【行4】 4 C社 【行5】 5 C社 【行6】 6 C社 この表の下のほうに、【列B】の社名を重複を削除した形で一覧表示させたいのです。この例の場合ですと、 A社 B社 C社 と表示させたいのですが。。。 フィルタ機能を使って重複を削除すれば同じようなことができるのですが、今後の更新作業を楽にするため関数でやりたいのですが、可能でしょうか。 教えてください。
- ベストアンサー
- その他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でのイベントになるでしょうが、それ以前にエクセルで前準備などしておくようなことは必要でしょうか? 表自体はかなり膨大な量のデータベースです。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- Excel VBAで値が重複する行を削除する
Excel2000を使っています。 シートAに数千件のデータがあります。 シートBのE列にある文字とシートAのD列の文字が重複する場合に、シートAの重複するセルがある行を削除する(且つできれば行のデータを抜き出すVBAを作ろうと考えています。 最近VBAの初心者本をやっと理解したところで、ちんぷんかんぷんとまではいかないけど、知恵熱がでました。 仕事なので自分でなんとかすべきかと思いますが、きっかけの調べ方がまずわからない。 どなたか、解かるきっかけだけでも与えて頂けないでしょうか。とくに、別シートの値と重複する値を探す場合に何をいれるかわかればきっと道は開けると思うんですが…。 初めての質問なので、質問内容が至らなかったらもうしわけありません。
- 締切済み
- オフィス系ソフト
- 重複行を削除するエクセルのマクロ
重複している行を削除したいです。 A B C D 1 a123 4567 PX2 0 2 a456 4567 PX3 5000 3 a789 4567 PX5 10 4 a567 4567 PX4 20 5 a123 4567 PX2 0 A行とC行を検索し両方が重複していたら重複している一行を削除するボタンを作りたいと思っております。どうぞご教授ください。
- ベストアンサー
- オフィス系ソフト
- A列に特定の文字と数字があればその行を削除
A列には大半が文字が入力されており特定の文字"自分"と一部数字があればその2,3,4行を削除し以下のように行を詰めたいのですがどなたかVBAコードの解る方お願いします。 A B C 1 鈴木 あ い 2 自分 う え 3 123 お あ 4 368 え う 5 江藤 え う ↓ A B C 1 鈴木 あ い 2 江藤 え う
- ベストアンサー
- Visual Basic
- エクセル 重複行色付(VBA)について質問です。
Excelで、2ヶ所の場所を重複しているのかどうかチェックし、重複でしたらその行ごと色を付けたいと思っております。 | A | B | C | D | E | 田中 1046587920 8/2 8/6 100364987 鈴木 1098463612 8/3 8/5 125698001 森川 1548758743 8/20 8/23 103587410 川島 1046587920 8/22 8/23 100365871 森本 1046587920 8/25 8/26 100364987 例えば、上記の様な一覧があり 「B列」 と 「E列」 とで重複を確かめて、同じであれば色が付く様にVBAを組みたいのですが、現在調べて 「B列」 のみの重複に色付けは出来るようになったのですが、2ヶ所重複に色をつけることで困っております。 上の例で行きますと、田中さんと森本さんの行に色が付く形が理想でして、川島さんの、「B列」は該当しておりますが、「E」列が異なるため、色は付きません。 行数は。2万行前後になるのですが、関数を当てると処理が非常に重くなるため、VBAを試みております。 お知恵をお貸し頂けましたら幸いです。
- ベストアンサー
- その他(インターネット・Webサービス)
お礼
ありがとうございます。