エクセル　最大値データのある行のみを残したい。

Question

表題の質問をさせていただきます。よろしくお願いいたします。

Ａ列には商品名　Ｂ列には販売数があるとします。
商品には一回しか出てこない物や何度も出てくるものがあります。

そこで、販売数が最大値のみの重複しない商品データにする方法をお聞きしたいのです。
できれば非表示的な処理ではなく不要行削除が望ましいです。

例 下の場合
りんご 3（重複商品の最大値）
みかん 5（単独商品）
りんご 1
バナナ 6（単独商品）
りんご 2
イチゴ 2（重複商品の最大値）
イチゴ 1

↓にしたいのです。
りんご 3
みかん 5
バナナ 6
イチゴ 2

よろしくお願いいたします。

merlionXX · Accepted Answer

No2 merlionXXです。
myDic自身が配列だったのでもっと簡潔な書き方が出来ました。
ご参考のため各コードにコメントも付けておきました。

Sub test02()
    Dim myDic As Object '変数宣言
    Dim c As Range '変数宣言
    Set myDic = CreateObject("Scripting.Dictionary") 'myDicを用意
    For Each c In Range(Cells(1, "A"), Cells(Rows.Count, "A").End(xlUp)) 'A列の各データについて
        If Not myDic.exists(c.Value) Then 'myDicになければ
            myDic.Add c.Value, c.Offset(0, 1).Value '追加しB列データを結びつける
        Else 'myDicにあれば
            myDic(c.Value) = IIf(myDic(c.Value) < c.Offset(0, 1).Value, c.Offset(0, 1).Value, myDic(c.Value)) 'B列データの大きい方を結びつける
        End If
    Next c '繰り返し
    Set ns = Worksheets.Add(After:=ActiveSheet) 'シートを追加
    ns.Range("A1").Resize(myDic.Count, 1).Value = Application.Transpose(myDic.Keys) 'A列にデータ
    ns.Range("B1").Resize(myDic.Count, 1).Value = Application.Transpose(myDic.Items) 'B列に結びつけデータ
    Set myDic = Nothing
    Set ns = Nothing
End Sub

merlionXX · Answer

VBAで行う一例です。

別シートを作成し、そこに抽出します。

Sub test02()
    Dim myDic As Object
    Dim c As Range
    Dim myKey(), myItem()
    Set myDic = CreateObject("Scripting.Dictionary")
    For Each c In Range(Cells(1, "A"), Cells(Rows.Count, "A").End(xlUp))
        If Not myDic.exists(c.Value) Then
        myDic.Add c.Value, c.Offset(0, 1).Value
    Else
        myDic(c.Value) = IIf(myDic(c.Value) < c.Offset(0, 1).Value, c.Offset(0, 1).Value, myDic(c.Value))
    End If
    Next c
    myKey() = myDic.Keys
    myItem() = myDic.Items
'    MsgBox Join(myKey()) & Join(myItem())
    Set ns = Worksheets.Add(After:=ActiveSheet)
    ns.Range("A1").Resize(myDic.Count, 1).Value = Application.Transpose(myKey())
    ns.Range("B1").Resize(myDic.Count, 1).Value = Application.Transpose(myItem())
    Set ns = Nothing
End Sub

CoalTar · Answer

案１
フィルタオプションの設定で重複レコードを削除し
配列数式で計算
=MAX(IF($A$2:$A$8=D2,$B$2:$B$8))
コピー&値の貼り付け

案２
ピボットテーブル案の最大値

案３
並べ替えて 集計を最大値で
は非表示なので没ですね

エクセル 最大値データのある行のみを残したい。

No2 merlionXXです。

VBAで行う一例です。

案１

このQ&Aを見た人はこんなQ&Aも見ています

関連するカテゴリからQ&Aを探す

このQ&Aを見た人がよく見るQ&A

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

エクセル　最大値データのある行のみを残したい。