List of telephone numbers and need to highlight sequential ranges

[Picillo]

I'm working on a spreadsheet that has a column of telephone numbers. There 1700 numbers and I need to filter/highlight out what numbers are in ranges or produce a list in a different column or worksheet.

So I need something like this.

I'd prefer for a list of the ranges in a different column, but highlighting will do as well.

I have tried the Conditional Formatting method and it doesn't appear to work.

Any help would be greatly appreciated.

Thank you,

 

[Picillo]

Try this:

Sub a1158545b()
'https://www.mrexcel.com/board/threads/list-of-telephone-numbers-and-need-to-highlight-sequential-ranges.1158545/
Dim i As Long, j As Long, n As Long
Dim va, vb
Dim flag As Boolean

n = Range("A" & Rows.Count).End(xlUp).Row + 1
va = Range("A1:A" & n)
ReDim vb(1 To UBound(va, 1), 1 To 2)
flag = False

For i = 2 To UBound(va, 1) - 1

    If va(i, 1) + 1 = va(i + 1, 1) Then
        vb(i, 1) = va(i, 1)
        vb(i + 1, 1) = va(i + 1, 1)
        If flag = False Then j = i: flag = True
    Else
        flag = False

    End If
    If i > 2 Then
        If flag = False And va(i - 1, 1) + 1 = va(i, 1) Then vb(j, 2) = va(i, 1)
    End If
Next

'result in col B
Range("B1").Resize(UBound(vb, 1), 2) = vb

End Sub

Book1 (version 1).xlsb
	A	B	C
1	data
2	1	1	2
3	2	2
4	6
5	8
6	10
7	12	12	14
8	13	13
9	14	14
10	17
11	20
12	24	24	25
13	25	25
Sheet1

Thank you so much to both of you. You made a project really easy for me. You guys are the best.

 

[Akuini]

You're welcome, glad to help & thanks for the feedback.