- ベストアンサー
Excelで行の要素に重複がある場合の行削除
Excelに関して質問です。 次のような場合の、とある一部分だけ重複した行を双方ともに削除したい場合はどうしたら良いのでしょうか。 ※左側は行番号です。 【1行目と7行目の001と、3行目と6行目の003が重複しているので...】 1 001 田中 2 002 鈴木 3 003 高橋 4 006 武田 5 005 石森 6 003 岡野 7 001 野田 ↓ 【1行目、7行目、3行目、6行目を全部削除】 2 002 鈴木 4 006 武田 5 005 石森 どうしたらいいのでしょうか。教えてください。
- k3font
- お礼率100% (4/4)
- Excel（エクセル）
- 回答数4
- ありがとう数4
- みんなの回答 （4）
- 専門家の回答
質問者が選んだベストアンサー
その他の回答 (3)
- keithin
- ベストアンサー率66% (5278/7940)
「１部分だけ」というだけの条件だと，どの行も「00は共通」なので全部無しになっちゃいますね。 漠然と１部分とかじゃなく，たとえば「先頭の３文字が」とか「スペースで区切られた前半部分が」とか，明確なルールを決めないといけません。 簡単に： Ｂ１に =IF(COUNTIF(A:A,LEFT(A1,3)&"*")>1,"削除対象","") と記入，以下コピー オートフィルタなどで「削除対象」の行を絞って行削除します。
お礼
参考にします。ありがとうございます。
- mshr1962
- ベストアンサー率39% (7418/18948)
A列がコード、B列が氏名として、1行ずらして先頭行に項目名を設定 C2に =COUNTIF(A:A,A2) と入力して下方に必要分コピー 「データ」→「フィルタ」（もしくはCtrl+Shift+L）でオートフィルタを設定 C列の条件を2以上に設定、これで2,4,7,8行目（元の状態の1,3,6,7行目）が選択されるので 選択してDELETE後にオートフィルタを解除して空いた行を埋めるために並び替えを行ってください。
お礼
こちらも参考に致します。 ありがとうございます。
- eden3616
- ベストアンサー率65% (267/405)
001などの番号がA列、田中などの名前がB列とセルが分かれているものとします。 (1)C1に「=COUNTIF(A:A,A1)」を入力 (2)C1のセルをC7までフィルハンドルでオートフィル（数式のコピー） (3)A1：C7を範囲選択して「デーた」→「並び替え」 (4)優先されるキーを「C列」にして「OK」 (5)C列が2以上になっている行を選択して削除 (6)C列を削除 とか？
お礼
2度もご回答ありがとうございました。
関連するQ&A
- エクセルで重複データ（行）を両方削除
エクセルで重複データ（行）を両方削除 A B C １ 山田さん 090-111- 東京 ２ 鈴木さん 090-222- 埼玉 ３ 高橋さん 090-333- 茨城 ４ 山田さん 090-111- 東京 となっていた時、重複した行を削除して 以下のようにしたい場合はどうしたらいいでしょうか？ A B C ２ 鈴木さん 090-222- 埼玉 ３ 高橋さん 090-333- 茨城
- ベストアンサー
- オフィス系ソフト
- アクセスにおける重複データの削除について
まったくのアクセス初心者なのでご教授お願いします。 例えば、下記のデータのような場合 社員番号 名前 受診日 １ 田中 2003/05/08 １ 田中 2005/10/01 ２ 鈴木 2004/03/11 ２ 鈴木 2002/07/03 と表示されているデータを、 社員番号 名前 受診日 １ 田中 2005/10/01 ２ 鈴木 2004/03/11 としたいのです。行いたいのは、最新の受診日のデータだけを残して、古い受診日データは削除したいのです。重複クエリで重複している社員番号を持つ人は抽出できたのですが、受診日が異なるためにどちらも「違うレコード」として表示されてしまいます。方法がありましたら教えてください。 何せ10,000件近くデータがあるので、困っています。よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセル 重複する行の削除に加算処理を追加したい
データの例と、現在使用しているマクロの内容は以下のようになっております。重複行を消すマクロです。EXCEL2003です。 ◇データ例◇ 名前 点数 田中 ２０ 田中 １０ 鈴木 １０ 佐藤 １０ 佐藤 ２０ 佐藤 ２０ ◇現在のマクロ◇ Sub sakujo() Dim i As long With Range("A2") For i = .CurrentRegion.Rows.Count To 1 Step -1 If .Offset(i,0) = .Offset(i - 1, 0) Then .Offset(i, 0).EntireRow.Delete Next i End With End Sub A2以下を一つ一つ見て行き、重複していれば削除します。 元データはソートされており、途中にスペースなどは存在しません。 これを、重複する行を消したときに、件数を加算する仕様にしたいです。 上記の例ですと、最終的に 田中 30 鈴木 10 佐藤 50 となるようにしたいです。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- EXCEL VBAの重複行削除について
EXCEL2010を使用しています。 添付画像の「重複行削除 前」の表を、RemoveDuplicatesで下の様にコードを組んで A列で重複する行を見て重複する行を削除しています。 Public Sub 重複行削除() With WorkSheets(1) .Range(.Cells(1, 1), .Cells(8, 3)).RemoveDuplicates _ Columns:=1, Header:=xlYes End With End Sub すると、日付の新しいデータが削除され、古いデータが残ってしまいます。 （添付画像の「重複行削除 後」） ReniveDuplicates Columns:=Array(1,3) とした場合は、すべてのデータが残ってしまいます。 添付画像の「欲しいデータ」の表の様に、 日付の新しいものを残すように重複行削除は出来ないでしょうか？ 詳しい方、どうか教えてください。 よろしくお願いします。
- ベストアンサー
- Excel（エクセル）
- エクセル セル内の重複する文字列を削除する方法
エクセルでセル内の重複する文字列を削除する方法を教えてください。 例えばA1のセルに次のような文字列があります 斎藤（18） 武田（21） 稲葉（41） 田中（3） 斎藤（18） 金子（8） 田中（3） この中で重複している文字列（斎藤（18）田中（3））を削除し、以下のようにしたいと思います。 斎藤（18） 武田（21） 稲葉（41） 田中（3） 金子（8） 区切り位置にはカンマやスペースは入ってません。 （改行コードは入ってます） わかる方おられましたら教えていただけますと幸いです。 よろしくお願いいたします。
- ベストアンサー
- その他MS Office製品
- 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市 データベースが大きいため、手作業で削除して行くのは大変です。適当な方法がありましたら、是非、ご教示ください。 どうぞ宜しくお願いします。
- ベストアンサー
- オフィス系ソフト
- ExcelでA列内で重複するレコードを削除
A、B、C列にデータが入力されており、A列の店名が重複する場合、最初の１つを残して、他の重複するレコード（行全体）を削除する方法を教えてください。 A列で重複していても、B、C列で内容が違う可能性があります。 例えば、 A列：田中商店 B列：本町１-1-1 C列：0120-000-000 A列：田中商店 B列：本町1-1-11 C列：0120-000-001 この様にA列で田中商店が重複する場合、１番目の田中商店の行だけを残し、２番目以降は行全体を削除して上方向に詰めたいです。
- ベストアンサー
- Excel（エクセル）
- エクセル 重複するものをピックアップ
エクセル2007で重複する名前を一気にどちらかのシート上でピックアップしたいのですが、なにかいい方法はありますでしょうか。 シート１ → 田中 シート２→ 佐々木 高橋 木村 鈴木 香川 岩井 青木 木村 岩井 中川 須藤 近藤 鈴木 鈴木と岩井と木村とをピックアップできるようにしたいのです。
- 締切済み
- オフィス系ソフト
- エクセルの重複の削除
下記のようなデータがあります。 19行目から製品番号が重複しているのですが、「重複の削除」では削除されません。 そこでNo 1-18までを削除して、「重複の削除」を行うと削除することができます。 なぜ1-18があると削除できないのでしょうか。 下のデータをエクセルに貼り付けても自分のPCでは再現します。 よろしくお願いします。 No , 製品番号 , 日付 1 , 0203 , 2003/1/2 2 , 203 , 2003/1/2 3 , 00303 , 2003/1/3 4 , 303 , 2003/1/3 5 , 404 , 2004/1/4 6 , 404 , 2004/1/4 7 , 00603 , 2003/1/6 8 , 603 , 2003/1/6 9 , 00703 , 2003/1/7 10 , 703 , 2003/1/7 11 , 00803 , 2003/1/8 12 , 803 , 2003/1/8 13 , 00903 , 2003/1/9 14 , 903 , 2003/1/9 15 , 01003 , 2003/1/10 16 , 1003 , 2003/1/10 17 , 01103 , 2003/1/11 18 , 1103 , 2003/1/11 19 , 18006D2 , 2006/6/29 20 , 18006D2 , 2006/6/29 21 , 18904D , 2004/7/7 22 , 18904D , 2004/7/7 23 , 18905A2 , 2005/7/8 24 , 18905A2 , 2005/7/8 25 , 19405D1 , 2005/7/13 26 , 19405D1 , 2005/7/13 27 , 19407D2 , 2007/7/13 28 , 19407D2 , 2007/7/13 29 , 19506D2 , 2006/7/14 30 , 19506D2 , 2006/7/14 31 , 19704D , 2004/7/15 32 , 19704D , 2004/7/15 33 , 2004D , 2004/1/20 34 , 2004D , 2004/1/20 35 , 20206A2 , 2006/7/21 36 , 20206A2 , 2006/7/21
- ベストアンサー
- Excel（エクセル）
- エクセルまたは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でのイベントになるでしょうが、それ以前にエクセルで前準備などしておくようなことは必要でしょうか？ 表自体はかなり膨大な量のデータベースです。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
お礼
ありがとうございます。これで実践してみます。