在excel中，如何统计号码组合的连号数，例如某号码组合3 4 12 13 14 15，连号数为4

Sub Sheet3_秙1_Click()
Dim a(5) As Integer
For i = 2 To Sheet3.UsedRange.Rows.Count
num = 0
a(0) = Sheet3.Range("B" & i).Value
a(1) = Sheet3.Range("C" & i).Value
a(2) = Sheet3.Range("D" & i).Value
a(3) = Sheet3.Range("E" & i).Value
a(4) = Sheet3.Range("F" & i).Value
a(5) = Sheet3.Range("G" & i).Value

For k = 1 To 5
If a(k) = a(k - 1) + 1 Then
num = num + 1
End If
Next k
Sheet3.Range("I" & i).Value = num
Next i
End Sub

应无内置公式，使用自定义公式（VBA）。