This VBA sub should give you roughly what you need...
Sub Separate_Years()
Dim Str1 As String
Dim Str2 As String
Dim LastRow As Long
Dim Yr As Variant
Dim Y1 As Integer
Dim Y2 As Integer
Dim i As Integer
Dim j As Integer
Dim CPos As Integer
LastRow = Cells(Rows.Count, "B").End(xlUp).Row
For i = 2 To LastRow
Y1 = Left(Range("C" & i).Value, InStr(Range("C" & i).Value, "-") - 1)
Y2 = Right(Range("C" & i).Value, Len(Range("C" & i).Value) - InStr(Range("C" & i).Value, "-"))
Yr = Split(Range("B" & i), ",")
For j = 0 To UBound(Yr)
If Yr(j) >= Y1 And Yr(j) <= Y2 Then
Str1 = Str1 & "," & Yr(j)
Else
Str2 = Str2 & "," & Yr(j)
End If
Next j
Str1 = Mid(Str1, 2)
Str2 = Mid(Str2, 2)
Range("E" & i) = Str1
Range("F" & i) = Str2
Str1 = ""
Str2 = ""
Next i
End Sub
Bookmarks