
こんにちは。
添付された画像のように、A列には出身地がかかれてますが、
神奈川、群馬、ロシアについてはいくつもあります。
この時、神奈川、群馬、ロシアの行を重複しないよう1つの行にするため他の重複している行を削除し、
また削除する際、重複している行を比較し、年齢の高い方を消す方法はありますか?
つまり画像のAから画像のBのようにしたいのですが、
何かスマートなやり方を教えて頂きたいです。
またこのデータは例ですので短い行ですが、実際は10000行以上にも続いている為、
できましたらそれを考慮した方法がございましたら、ありがたいです。
また当方Excel2003を主に使用し、Excel2007も持っています。
よろしくお願いいたします。

No.3
- 回答日時:
Fig-1
Sheet1
A B C D
1 出身地 年齢 特技 仮
2 茨城 20 水泳 1
3 水戸 21 ドラム 2
4 ロシア 43 輪投げ 3
5 埼玉 52 モノマネ 4
6 神奈川 33 トナカイ 5
7 東京 25 早打ち 6
8 南アルプス 43 ムチ 7
9 神奈川 25 イングリッシュ 8
10 群馬 45 語学 9
11 群馬 64 剣道 10
12 ロシア 23 柔道 11
1.元の表のD列の上から順に 1、2、3、… と数値を入力。その結果
を Fig-1 に示す。2.Fig-1 を元のデータとするピボットテーブ
ルを作成。その結果を添付図の Fig-2 に示す。
3.当該ピボットテーブルの範囲 A4:D15 を[コピー]して、Sheet2 の
セル A1 に[値の貼り付け]を実行。その結果を Fig-3 に示す。
Fig-3
Sheet2
A B C D
1 出身地 年齢 特技 合計
2 ロシア 23 柔道 11
3 43 輪投げ 3
4 茨城 20 水泳 1
5 群馬 45 語学 9
6 64 剣道 10
7 埼玉 52 モノマネ 4
8 神奈川 25 イングリッシュ 8
9 33 トナカイ 5
10 水戸 21 ドラム 2
11 東京 25 早打ち 6
12 南アルプス 43 ムチ 7
4.Fig-3 の1行目で[オートフィルタ]を設定した後で、添付図の
Fig-4 に示すようにA列で (空白セル) を選択
5.添付図の Fig-5 に示すように、抽出された全レコードを選択して
[行の削除]実行。
6.[オートフィルタ]を解除した結果を Fig-6 に示す。
Fig-6
Sheet2
A B C D
1 出身地 年齢 特技 合計
2 ロシア 23 柔道 11
3 茨城 20 水泳 1
4 群馬 45 語学 9
5 埼玉 52 モノマネ 4
6 神奈川 25 イングリッシュ 8
7 水戸 21 ドラム 2
8 東京 25 早打ち 6
9 南アルプス 43 ムチ 7
7.D列を昇順にして Fig-6 を[並べ替え]た結果を Fig-7 に示す。
Fig-7
A B C D
1 出身地 年齢 特技 合計
2 茨城 20 水泳 1
3 水戸 21 ドラム 2
4 埼玉 52 モノマネ 4
5 東京 25 早打ち 6
6 南アルプス 43 ムチ 7
7 神奈川 25 イングリッシュ 8
8 群馬 45 語学 9
9 ロシア 23 柔道 11
8.D列を削除

No.1
- 回答日時:
エクセル2007で次のようにすればよいでしょう。
D2セルには次の式を入力し下方にオートフィルドラッグします。
=IF(A2="","",IF(COUNTIF(A$2:A2,A2)=1,MAX(D$1:D1)+1,""))
次にA,B,C、D列を選択して「ホーム」タブから「並べ替えとフィルタ」を選び、「ユーザー設定の並べ替え」をクリックします。
「最優先されるキー」では「出身地」を、次に「レベルの追加」から「次に優先されるキー」で「年齢」を選択しいずれも「昇順」でOKします。
これらの操作が済んだ後で、D列を選択し「並べ替えとフィルタ」から「昇順」を選択します。並べ替えの範囲を広げるを選んでOKすればダブったデータで年齢が上の者が空白で下方の行に並びますのでD列で空白の行を選択してDeleteすればよいでしょう。
回答ありがとうございます!
関数についてはまだ勉強中でわからない所があるのですが、
とても勉強になります!
様々な並べ替えをする仕事についてますので、
参考にさせて頂きます。ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excel 指定した固有番号で、複数の行を削除する方法は? 2 2022/03/30 15:18
- Visual Basic(VBA) vbaエクセルマクロ RemoveDuplicatesについて RemoveDuplicatesを使 3 2023/02/28 01:13
- Visual Basic(VBA) Excel vbaについて知恵もしくは、コード教えて下さいm(__)m ① 表にあるデータをコピー、 2 2022/09/01 23:57
- Excel(エクセル) エクセルで重複データを行ごとに抽出したい 4 2022/12/05 08:18
- Visual Basic(VBA) vbaエクセルマクロ RemoveDuplicatesについて RemoveDuplicatesを使 1 2023/02/27 22:21
- Excel(エクセル) PowerQueryに詳しい方教えてください(Office365) 1 2022/07/24 21:11
- Excel(エクセル) Excel リンク先のエクセルファイルの削除 同時に行を削除したい 1 2022/11/29 16:20
- Excel(エクセル) Excelの複数置換はSUBSTITUTEを重ねるしかない? 9 2022/05/08 11:25
- Excel(エクセル) 重複データの抽出について 2 2023/07/21 14:52
- Visual Basic(VBA) 3つの条件を指定してVBAで行を削除したい 条件1:分類1が重複 条件2:分類2が重複 条件3:個数 6 2022/06/24 11:07
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Microsoft Officeを2台目のPCに...
-
エクセルで質問です。 ハイパー...
-
Office2021を別のPCにインスト...
-
別シートの年間行事表をカレン...
-
エクセルからメールを作れるか...
-
パソコンWindows11 Office2021...
-
大学のレポート A4で1枚レポー...
-
Excel 日付を比較したら、同じ...
-
【Excel VBA】PDFを作成して,...
-
エクセル 同じ数字を他の列に自...
-
libreoffice calcで行を挿入し...
-
Officeを開くたびの「再起動メ...
-
Microsoft365、ページ設定がで...
-
快活CLUBについて 私用で使う書...
-
エクセルで特定のセルの値を別...
-
マクロ自動コピペ 貼り付ける場...
-
Microsoft Formsの「個人情報や...
-
表の作成について
-
Microsoft365搭載Windows11PCへ...
-
outlookのメールが固まってしま...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Microsoft Officeを2台目のPCに...
-
Office2021を別のPCにインスト...
-
大学のレポート A4で1枚レポー...
-
Microsoft365について
-
outlookのメールが固まってしま...
-
英数字のみ全角から半角に変換
-
Office 2021 Professional Plus...
-
エクセルVBAで1004エラーになり...
-
エクセルで特定のセルの値を別...
-
MSオフィス2013にMS365が上書き...
-
Microsoft Formsの「個人情報や...
-
【Excel VBA】PDFを作成して,...
-
別シートの年間行事表をカレン...
-
office2019 のoutlookは2025年1...
-
マクロ自動コピペ 貼り付ける場...
-
表の作成について
-
office365 回復できない。
-
マイクロソフト 一時使用コード...
-
Teams内でショートカットって貼...
-
Microsoft Office Homeインスト...
おすすめ情報