Convert List Of Sequential Numbers Into Ranges

[nmganey]

hey i have a list in the same cell separated by ,
ex:
[TABLE="width: 229"]
<colgroup><col width="229"></colgroup><tbody>[TR]
[TD="width: 229"]1,2,3,4,5,9,22,23,24,25,244,245,246,247,248,249
[/TD]
[/TR]
</tbody>[/TABLE]
and so on i want it to be converted into 1-5,9,22-25,244-249 any help would be much appreciated.Thanks

 

[mattsalmon]

Thanks so much I am pretty sure that has done the job.

I have used the code:

Function IntoRanges(aString As String, Optional Delimiter As String = ",") As String
Dim NextBit As String
Dim i As Long
Dim Items As Variant
Items = Split(aString, Delimiter)

IntoRanges = Items(0)
For i = 0 To UBound(Items) - 1
If Asc(Items(i)) + 1 = Asc(Items(i + 1)) Then
NextBit = "-" & Items(i + 1)
Else
If NextBit = vbNullString Then
IntoRanges = IntoRanges & Delimiter & Items(i + 1)


Else
IntoRanges = IntoRanges & NextBit & Delimiter & Items(i + 1)
NextBit = vbNullString
End If
End If
Next i
IntoRanges = IntoRanges & NextBit
End Function