Snasui Excel Forum

Code: Select all

last_row = Range("B" & Rows.Count).End(xlUp).Row
            start_row = 2
            Dim Totcol As Integer
            Totcol = last_row - start_row
            ReDim errorcnt(Totcol)
            For I = 0 To Totcol
                arrhd = Split(Cells(I + start_row, 2).Value, "@")
                
                Dim aa As New Collection
                Dim b() As Variant
                Dim k As Variant
                Dim j, y As Integer
                Dim z As Integer
                z = 1
                On Error Resume Next
                For Each k In arrhd
                    aa.Add k, k
                    Flag_foundError = True
                Next k
                
                On Error GoTo 0
                If Not Flag_foundError Then
                  GetResultName = False
                  Exit Function
                End If

                 ReDim Preserve errorcnt(I).Resultname(aa.Count - 1)
                 ReDim Preserve errorcnt(I).ResultNumber(aa.Count - 1)
                For j = 0 To aa.Count - 1
                   errorcnt(I).Resultname(j) = aa(j + 1)
                   
                Next j

           Next I