Determining 4 consecutive numbers from a cell [closed] - excel

Question

Closed. This question needs details or clarity. It is not currently accepting answers.
Want to improve this question? Add details and clarify the problem by editing this post.
Closed 2 years ago.
Improve this question
i have a problem and i do not know how to solve it.
i have to find a formula in excel or code in vba to highlights the 4 consecutive numbers from a cell B2.
In this cell are 20 numbers (from 1 to 90).

Answer 1

Tray this code, please:
Sub testSplitExtract()
Dim c As Range, arr As Variant, i As Long, boolFound As Boolean
Set c = Range("B2")
arr = Split(c.Value, ",") 'obtain the values array
arraySort arr 'sort the obtained array
For i = 0 To UBound(arr) - 3
If CLng(arr(i)) = CLng(arr(i + 1)) - 1 And _
CLng(arr(i + 1)) = CLng(arr(i + 2)) - 1 And _
CLng(arr(i + 2)) = CLng(arr(i + 3)) - 1 Then
Debug.Print arr(i), arr(i + 1), arr(i + 2), arr(i + 3)
MsgBox arr(i) & "," & arr(i + 1) & "," & arr(i + 2) & "," & arr(i + 3)
boolFound = True: Exit For
End If
Next
If Not boolFound Then MsgBox "No four consecutive numbers in the analized cell"
End Sub
Private Function arraySort(ByRef arrS As Variant) ' function to sort the array
Dim i As Long, j As Long, str1 As Variant, str2 As Variant
For i = 0 To UBound(arrS)
For j = i To UBound(arrS)
If arrS(j) < arrS(i) Then
str1 = arrS(i)
str2 = arrS(j)
arrS(i) = str2
arrS(j) = str1
End If
Next j
Next i
End Function

Answer 2

You could use something like so as discussed above
Function CONSECUTIVE_NUMBERS(strInput As String) As Boolean
Dim a() As String
Dim l As Long
a = Split(strInput, ",")
For l = 0 To UBound(a) - 3
If (Trim(a(l + 1)) - Trim(a(l)) = 1) And _
(Trim(a(l + 2)) - Trim(a(l + 1)) = 1) And _
(Trim(a(l + 3)) - Trim(a(l + 2)) = 1) Then
CONSECUTIVE_NUMBERS = True
Exit For
End If
Next l
End Function
or changing the IF to be
If (Trim(a(l + 1)) - Trim(a(l)) = 1) And _
(Trim(a(l + 2)) - Trim(a(l + 1)) = 1) And _
(Trim(a(l + 3)) - Trim(a(l + 2)) = 1) Then
CONSECUTIVE_NUMBERS = Trim(a(l)) & "," & _
Trim(a(l + 1)) & "," & _
Trim(a(l + 2)) & "," & _
Trim(a(l + 3))
Exit For
End If
and having the a string return from the function to output the 4

Answer 3

Function ConsecutiveFour(myNumbers)
Dim Num, Result
Num = Split(myNumbers, ",")
For i = 0 To UBound(Num) - 3
If WorksheetFunction.And(Num(i + 1) - Num(i) = 1, Num(i + 2) - Num(i + 1) = 1, Num(i + 3) - Num(i + 2) = 1) = True Then
Result = Result & "," & "[" & Num(i) & "," & Num(i + 1) & "," & Num(i + 2) & "," & Num(i + 3) & "]"
End If
Next
ConsecutiveFour = Right(Result, Len(Result) - 1)
End Function