学习一下字典,打扰了
Sub test()
arr = [a1].CurrentRegion
Set d = CreateObject("scripting.dictionary")
Set d1 = CreateObject("scripting.dictionary")
For i = 2 To UBound(arr)
If Not d.exists(arr(i, 1)) Then
brr = Split(arr(i, 2), "-")
d(arr(i, 1)) = Mid(brr(2), 4)
d1(arr(i, 1)) = Mid(brr(5), 4)
Else
brr = Split(arr(i, 2), "-")
If d(arr(i, 1)) > Mid(brr(2), 4) Then
d(arr(i, 1)) = Mid(brr(2), 4)
End If
If d1(arr(i, 1)) < Mid(brr(5), 4) Then
d1(arr(i, 1)) = Mid(brr(5), 4)
End If
End If
Next
crr = [d2].CurrentRegion
For i = 2 To UBound(crr)
crr(i, 2) = d(crr(i, 1))
crr(i, 3) = d1(crr(i, 1))
Next
[d2].CurrentRegion = crr
End Sub |