|
▼Tacchi さん:
こんにちは。
>同じ品番の中で一番日付が最短のものを格納したいと思っていますが、
>どうも、うまくいきません
未検証ですが、以下では?
>Dim MyD As Object
Dim MyVal As String, MyVal2
Dim myDate As Date
>
>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
myDate = Cells(i, "C").Value
> If Not MyD.exists(MyVal) Then
> MyD.Add MyVal, myDate
> Else
> ’ココで、もし、同じ品番があったら、すでに格納されてる
> ' 日付と比べて、最短のほうを格納する
> ' といった方法をとりたいです
If MyD(MyVal) < myDate Then MyD(MyVal) = myDate
> End If
>Nex i
|
|