Look and return and sperate part numbers with

You in VBA Section so here's vba...

Please Login or Register  to view this content.

According to the attachment a VBA starter to paste to the Sheet1 worksheet module :

PHP Code: 

Sub Demo1()
    Dim V(), W, R&, L&, N&
        ReDim V(2 To Rows.Count, 1)
        W = Me.UsedRange.Value2
    For R = 2 To UBound(W)
        If W(R, 1) > "" Then
            L = L + 2
            V(L, 0) = W(R, 1)
            W(R, 2) = Split(W(R, 2), "/")
            For N = 0 To UBound(W(R, 2)):  V(L + N, 1) = W(R, 2)(N):  Next
            IF UBound(W(R, 2)) > 0 Then L = L + UBound(W(R, 2))
        ElseIf W(R, 2) > "" Then
            L = L + 1
            V(L, 1) = W(R, 2)
        End If
    Next
        Range("A2:B" & L).Value2 = V
End Sub 


► Do you like it ? ► ► So thanks to click on bottom left star icon « ★ Add Reputation » ! ◄ ◄

Here is the code
Option Explicit

Please Login or Register  to view this content.