Dim sum As Integer
Dim fr As String
Dim r,nr As Row
r = Tables("Sheet2").Rows(0)
fr = r("hm")
sum = 1
Dim p As String = "[a-zA-Z]+" '[^\d+]
Dim rgx = New System.Text.RegularExpressions.Regex(p)
Dim srr() As String
Dim a1,a2 As String
Dim n1,n2 As String
For i As Integer = 1 To Tables("Sheet2").Rows.Count - 1
r = Tables("Sheet2").Rows(i-1)
nr = Tables("Sheet2").Rows(i)
If r("hd") = nr("hd")
a1 = r("hm")
srr = rgx.Split(a1)
n1 = srr(srr.Length - 1)
a1 = a1.Substring(0,a1.Length - n1.Length)
a2 = nr("hm")
srr = rgx.Split(a2)
n2 = srr(srr.Length - 1)
a2 = a2.Substring(0,a2.Length - n2.Length)
If a1 = a2 AndAlso CLng(n1) + 1 = CLng(n2) Then
sum+=1
Else
Output.Show(r("hd") & "," & fr & "-" & r("hm") & "," & sum)
r = nr
fr = r("hm")
sum = 1
End If
Else
Output.Show(r("hd") & "," & fr & "-" & r("hm") & "," & sum)
r = nr
fr = r("hm")
sum = 1
End If
Next
r = nr
Output.Show(r("hd") & "," & fr & "-" & r("hm") & "," & sum)