【Excel】重複している値ごとの最小値の求め方

Question

エクセルについての質問です。

下記添付画像
Ａ列で重複している場合、Ｃ列を最小値で統一するという作業のやり方を教えていただけないでしょうか。
（行数が多すぎて統合を試したら固まってしまいました。）

Comments

[meg_]

> 行数が多すぎて統合を試したら固まってしまいました。
何行あるのでしょうか？「固まってしまいました」とありますが、しばらく待っていたら処理終わりませんか？（メモリ不足であれば関数を使っても同じような状況になるかもしれませんので）

[arshu]

6万6千行程です。

[arshu]

30分程放置しててもローディング状態だったので閉じてしまいました(･･;)

Answer 1

こんな感じでどうでしょうか。

Sub sample()
    Dim dic 'As New Scripting.Dictionary
    Set dic = CreateObject("Scripting.Dictionary")
    Dim i, k, v
    For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
        k = Cells(i, 1).Value
        v = Val(Cells(i, 3).Value)
        If dic.Exists(k) Then
            If v < dic(k) Then dic(k) = v
        Else
            dic(k) = v
        End If
    Next
    For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
        Cells(i, 3).Value = "'" & dic(Cells(i, 1).Value)
    Next
End Sub

---

＜追記＞
つい癖でVBAで書いてしまいましたが、セル関数を使ってワークエリアで

[D2] =VALUE(C2)
[E2] =MINIFS(D:D,A:A,A2)
（あとは全行にコピー）

みたいにする手もあるかと思います。

Comments

[arshu]

E行が求めてるのになるのですね！ありがとうございます。
関数に強くないので本当に尊敬します。
ありがとうございました。