SOLVED

Complex text to column issue

%3CLINGO-SUB%20id%3D%22lingo-sub-2418853%22%20slang%3D%22en-US%22%3EComplex%20text%20to%20column%20issue%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-2418853%22%20slang%3D%22en-US%22%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3EExcel%202016%3C%2FP%3E%3CP%3EI%20was%20given%20a%20sheet%20that%20has%203000%20plus%20row%20entries%20and%20multiple%20columns.%26nbsp%3B%20Most%20of%20the%20columns%20are%20fine%2C%20except%20for%20the%20name%20cell.%26nbsp%3B%20I%20need%20to%20separate%20it%20into%20first%20and%20last%20names%20but%20the%20information%20was%20inputted%20poorly.%26nbsp%3B%20I%20will%20give%20you%20an%20example%20of%20the%20problems%20I%20am%20facing%20by%20providing%26nbsp%3B%20a%20sample%20of%20the%20entries%3A%3C%2FP%3E%3CP%3EJohn%20smith%3C%2FP%3E%3CP%3EA%20J%20Smith%3C%2FP%3E%3CP%3EJohn%20Q%20Smith%3C%2FP%3E%3CP%3EJohnn%20David%20smith%3C%2FP%3E%3CP%3EJohn%20Smith%20%26amp%3B%20Jane%20Smith%3C%2FP%3E%3CP%3EI%26nbsp%3B%20have%20tried%20to%20use%20the%20text%20to%20column%20and%20an%20If-Then%20function%2C%20but%20I%20do%20not%20know%20how%20to%20nest%20either%20one%20to%20make%20it%20work%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3EAny%20help%20would%20be%20appreciated%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3C%2FLINGO-BODY%3E%3CLINGO-LABS%20id%3D%22lingo-labs-2418853%22%20slang%3D%22en-US%22%3E%3CLINGO-LABEL%3EExcel%3C%2FLINGO-LABEL%3E%3C%2FLINGO-LABS%3E%3CLINGO-SUB%20id%3D%22lingo-sub-2418889%22%20slang%3D%22en-US%22%3ERe%3A%20Complex%20text%20to%20column%20issue%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-2418889%22%20slang%3D%22en-US%22%3E%3CP%3E%3CA%20href%3D%22https%3A%2F%2Ftechcommunity.microsoft.com%2Ft5%2Fuser%2Fviewprofilepage%2Fuser-id%2F1071810%22%20target%3D%22_blank%22%3E%40Scubajoe13%3C%2FA%3E%26nbsp%3B%3C%2FP%3E%0A%3CP%3EHere%20is%20a%20VBA%20macro%20you%20can%20use.%20In%20this%20example%2C%20the%20names%20in%20column%20A%20are%20split%3B%20headers%20are%20in%20row%201.%3C%2FP%3E%0A%3CP%3E%26nbsp%3B%3C%2FP%3E%0A%3CPRE%20class%3D%22lia-code-sample%20language-visual%22%3E%3CCODE%3ESub%20Test()%0A%20%20%20%20SplitNames%20Range(%22A1%22)%20'%20cell%20with%20the%20header%0AEnd%20Sub%0A%0ASub%20SplitNames(rng%20As%20Range)%0A%20%20%20%20Dim%20r1%20As%20Long%0A%20%20%20%20Dim%20c%20As%20Long%0A%20%20%20%20Dim%20r%20As%20Long%0A%20%20%20%20Dim%20m%20As%20Long%0A%20%20%20%20Dim%20v()%20As%20Variant%0A%20%20%20%20Dim%20n()%20As%20String%0A%20%20%20%20Dim%20p()%20As%20String%0A%20%20%20%20r1%20%3D%20rng.Row%0A%20%20%20%20c%20%3D%20rng.Column%0A%20%20%20%20m%20%3D%20Cells(Rows.Count%2C%20c).End(xlUp).Row%0A%20%20%20%20Cells(r1%2C%20c%20%2B%201).Resize(1%2C%206).EntireColumn.Insert%0A%20%20%20%20Cells(r1%2C%20c%20%2B%201).Resize(1%2C%206)%20%3D%20Array(%22First1%22%2C%20%22Middle1%22%2C%20%22Last1%22%2C%20%22First2%22%2C%20%22Middle2%22%2C%20%22Last2%22)%0A%20%20%20%20v%20%3D%20Cells(r1%2C%20c).Resize(m%20-%20r1%20%2B%201%2C%207).Value%0A%20%20%20%20For%20r%20%3D%202%20To%20m%0A%20%20%20%20%20%20%20%20p%20%3D%20Split(v(r%2C%201)%2C%20%22%26amp%3B%22)%0A%20%20%20%20%20%20%20%20n%20%3D%20Split(Application.Trim(p(0)))%0A%20%20%20%20%20%20%20%20v(r%2C%202)%20%3D%20n(0)%0A%20%20%20%20%20%20%20%20Select%20Case%20UBound(n)%0A%20%20%20%20%20%20%20%20%20%20%20%20Case%200%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20'%20Done%0A%20%20%20%20%20%20%20%20%20%20%20%20Case%201%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20v(r%2C%204)%20%3D%20n(1)%0A%20%20%20%20%20%20%20%20%20%20%20%20Case%20Else%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20v(r%2C%203)%20%3D%20n(1)%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20v(r%2C%204)%20%3D%20n(2)%0A%20%20%20%20%20%20%20%20End%20Select%0A%20%20%20%20%20%20%20%20If%20UBound(p)%20%26gt%3B%3D%201%20Then%0A%20%20%20%20%20%20%20%20%20%20%20%20n%20%3D%20Split(Application.Trim(p(1)))%0A%20%20%20%20%20%20%20%20%20%20%20%20v(r%2C%205)%20%3D%20n(0)%0A%20%20%20%20%20%20%20%20%20%20%20%20Select%20Case%20UBound(n)%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20Case%200%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20'%20Done%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20Case%201%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20v(r%2C%207)%20%3D%20n(1)%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20Case%20Else%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20v(r%2C%206)%20%3D%20n(1)%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20v(r%2C%207)%20%3D%20n(2)%0A%20%20%20%20%20%20%20%20%20%20%20%20End%20Select%0A%20%20%20%20%20%20%20%20End%20If%0A%20%20%20%20Next%20r%0A%20%20%20%20With%20Cells(r1%2C%20c).Resize(m%20-%20r1%20%2B%201%2C%207)%0A%20%20%20%20%20%20%20%20.Value%20%3D%20v%0A%20%20%20%20%20%20%20%20.EntireColumn.AutoFit%0A%20%20%20%20End%20With%0AEnd%20Sub%3C%2FCODE%3E%3C%2FPRE%3E%0A%3CP%3E%26nbsp%3B%3C%2FP%3E%0A%3CP%3E%3CSPAN%20class%3D%22lia-inline-image-display-wrapper%20lia-image-align-inline%22%20image-alt%3D%22S0479.png%22%20style%3D%22width%3A%20475px%3B%22%3E%3CIMG%20src%3D%22https%3A%2F%2Ftechcommunity.microsoft.com%2Ft5%2Fimage%2Fserverpage%2Fimage-id%2F286507iCDB074F74A358056%2Fimage-size%2Flarge%3Fv%3Dv2%26amp%3Bpx%3D999%22%20role%3D%22button%22%20title%3D%22S0479.png%22%20alt%3D%22S0479.png%22%20%2F%3E%3C%2FSPAN%3E%3C%2FP%3E%3C%2FLINGO-BODY%3E%3CLINGO-SUB%20id%3D%22lingo-sub-2419309%22%20slang%3D%22en-US%22%3ERe%3A%20Complex%20text%20to%20column%20issue%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-2419309%22%20slang%3D%22en-US%22%3E%3CP%3EIt%20took%20me%20a%20few%20tries%20to%20enter%20it%20without%20getting%20an%20error%2C%26nbsp%3B%20but%20once%20I%20did%2C%20it%20worked%20exactly%20as%20advertised!%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3EThank%20you%20very%20much%20for%20your%20help.%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%3CA%20href%3D%22https%3A%2F%2Ftechcommunity.microsoft.com%2Ft5%2Fuser%2Fviewprofilepage%2Fuser-id%2F1071810%22%20target%3D%22_blank%22%3E%40Scubajoe13%3C%2FA%3E%26nbsp%3B%3C%2FP%3E%3C%2FLINGO-BODY%3E%3CLINGO-SUB%20id%3D%22lingo-sub-2419964%22%20slang%3D%22en-US%22%3ERe%3A%20Complex%20text%20to%20column%20issue%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-2419964%22%20slang%3D%22en-US%22%3EThank%20you%20so%20much%20for%20this%20option.%20In%20many%20ways%20it%20is%20ismpler%3C%2FLINGO-BODY%3E
New Contributor

 

Excel 2016

I was given a sheet that has 3000 plus row entries and multiple columns.  Most of the columns are fine, except for the name cell.  I need to separate it into first and last names but the information was inputted poorly.  I will give you an example of the problems I am facing by providing  a sample of the entries:

John smith

A J Smith

John Q Smith

Johnn David smith

John Smith & Jane Smith

I  have tried to use the text to column and an If-Then function, but I do not know how to nest either one to make it work

 

Any help would be appreciated

 

 

 

4 Replies
best response confirmed by Scubajoe13 (New Contributor)
Solution

@Scubajoe13 

Here is a VBA macro you can use. In this example, the names in column A are split; headers are in row 1.

 

Sub Test()
    SplitNames Range("A1") ' cell with the header
End Sub

Sub SplitNames(rng As Range)
    Dim r1 As Long
    Dim c As Long
    Dim r As Long
    Dim m As Long
    Dim v() As Variant
    Dim n() As String
    Dim p() As String
    r1 = rng.Row
    c = rng.Column
    m = Cells(Rows.Count, c).End(xlUp).Row
    Cells(r1, c + 1).Resize(1, 6).EntireColumn.Insert
    Cells(r1, c + 1).Resize(1, 6) = Array("First1", "Middle1", "Last1", "First2", "Middle2", "Last2")
    v = Cells(r1, c).Resize(m - r1 + 1, 7).Value
    For r = 2 To m
        p = Split(v(r, 1), "&")
        n = Split(Application.Trim(p(0)))
        v(r, 2) = n(0)
        Select Case UBound(n)
            Case 0
                ' Done
            Case 1
                v(r, 4) = n(1)
            Case Else
                v(r, 3) = n(1)
                v(r, 4) = n(2)
        End Select
        If UBound(p) >= 1 Then
            n = Split(Application.Trim(p(1)))
            v(r, 5) = n(0)
            Select Case UBound(n)
                Case 0
                    ' Done
                Case 1
                    v(r, 7) = n(1)
                Case Else
                    v(r, 6) = n(1)
                    v(r, 7) = n(2)
            End Select
        End If
    Next r
    With Cells(r1, c).Resize(m - r1 + 1, 7)
        .Value = v
        .EntireColumn.AutoFit
    End With
End Sub

 

S0479.png

It took me a few tries to enter it without getting an error,  but once I did, it worked exactly as advertised!

 

Thank you very much for your help.

 

@Scubajoe13 

@Scubajoe13 Although your question has already been answered, I would like to demonstrate a solution using only standard user interface commands in Power Query (not for Mac). Just five simple splitting actions in the correct order and one last formatting step to capitalise the names. See it as a more advanced use of Text-to-columns. It's easily customised and works great on large sets of data.

Screenshot 2021-06-06 at 06.59.49.png

Thank you so much for this option. In many ways it is ismpler