|
どうしても、分からず悩んでおります
どうか、アドバイスを頂きたいです
A列に品番
B列にCode
C列に日付
が入っているシートがあります
8000件ほどあります
例えば、A列に同じ品番が複数行存在しており、
同じ品番の中で一番日付が最短のものを格納したいと思っていますが、
どうも、うまくいきません
今、下記のようにコードを記述しています
Dim MyD As Object
Dim MyVal, MyVal2
Set MyD = CreateObject("scripting.dictionary")
For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
MyVal = Cells(i, "A").Value & "|" & Cells(i, "B").Value
If Not MyD.exists(MyVal) Then
MyD.Add MyVal, Cells(i, "C").Value
Else
’ココで、もし、同じ品番があったら、すでに格納されてる
' 日付と比べて、最短のほうを格納する
' といった方法をとりたいです
End If
Nex i
どうかよろしくお願いします
|
|