Sorting IP Addresses
November 01, 2001 - by Bill Jelen
Russell has a column of internal IP addresses and he want to sort them. The problem is that the .100. addresses are coming before the .22. addresses.
If Russell adds a new, temporary column to be used for sorting, he can use this new custom function IPForSort(). This code should be pasted into a code module in the workbook.
Public Function IPforSort(OrigVal) IPforSort = "" OrigVal = OrigVal & "." Bg = 1 For i = 1 To Len(OrigVal) If Mid(OrigVal, i, 1) = "." Then IPforSort = IPforSort & Format(Mid(OrigVal, Bg, i - Bg), "000") & "." Bg = i + 1 End If Next i IPforSort = Left(IPforSort, Len(IPforSort) - 1) End Function