Split Sort cell values in Excel - either Macro or VBA

Posted on 2014-04-30
Last Modified: 2014-04-30
Hello All,

I have thousands of cells with the following name in this format in each cell:

surname, firstname

This is the general format and the first and surname is always separated by a comma.

Can I switch and actually separate these out so I have firstname in one cell and surname in another - something like this?

(B)             (C)
Firstname  Surname

It would be great to have either as a macro or vba script I can run?

Thanks in advance - GISVPN
Question by:gisvpn
  • 3
  • 2
  • 2
  • +1
LVL 34

Expert Comment

by:Dan Craciun
ID: 40032548
Why don't you simply use Text to Columns? It will do what you want, no code necessary.
text to columns

Accepted Solution

itjockey earned 500 total points
ID: 40032582
You can achieve this by formula too. assuming your name is in cell A3 then formula in
B3for Name =MID(SUBSTITUTE(A3," ",""),FIND(",",SUBSTITUTE(A3," ",""),1)+1,100)

For Surname Formula in Cell C3=LEFT(SUBSTITUTE(A3," ",""),FIND(",",SUBSTITUTE(A3," ",""),1)-1)


Expert Comment

ID: 40032607
Formula is amended so if you tried with older one then it may produce wrong output, so pls try amended one.


Author Closing Comment

ID: 40032610
Dan - thanks for the suggestion - worked a treat. I had no idea there was this feature in Excel.

itjockey - I tried the formula also but it did not seem to work as expected.
Threat Intelligence Starter Resources

Integrating threat intelligence can be challenging, and not all companies are ready. These resources can help you build awareness and prepare for defense.


Author Comment

ID: 40032612
Oh sorry  itjockey - we pressed submit at the same time, thanks will try the updated one.
LVL 43

Expert Comment

by:Saqib Husain, Syed
ID: 40032632
Here is a macro

Sub lastto1st()
Range("A2:A" & Rows.Count).SpecialCells(xlCellTypeConstants).Offset(, 1).FormulaR1C1 = "=replace(rc[-1],1,find("","",rc[-1]),"""")"
Range("A2:A" & Rows.Count).SpecialCells(xlCellTypeConstants).Offset(, 2).FormulaR1C1 = "=replace(rc[-2],find("","",rc[-2]),9999,"""")"
Range("B2:C" & Rows.Count).Value = Range("B2:C" & Rows.Count).Value
End Sub

Expert Comment

ID: 40032734
itjockey - I tried the formula also but it did not seem to work as expected.
You tried mine? & it is not produce result as expected ?
then why you accept my solution :)
in my formulas i had limits the name to 100 character if there is more then 100 character for name then try this for name (Assuming text string in A3) Cell B3=MID(SUBSTITUTE(A3," ",""),FIND(",",SUBSTITUTE(A3," ",""),1)+1,LEN(A3))

and for Surname  Cell C3 =LEFT(SUBSTITUTE(A3," ",""),FIND(",",SUBSTITUTE(A3," ",""),1)-1)

or provide me sample file i do it on your behalf.
LVL 34

Expert Comment

by:Dan Craciun
ID: 40032861
Yeah, the OP said my solution works and yours doesn't and then accepts your solution :)

Featured Post

Find Ransomware Secrets With All-Source Analysis

Ransomware has become a major concern for organizations; its prevalence has grown due to past successes achieved by threat actors. While each ransomware variant is different, we’ve seen some common tactics and trends used among the authors of the malware.

Join & Write a Comment

Using Word 2013, I was experiencing some incredible lag when typing.  Here's what worked for me....
This code takes an Excel list of URL’s and adds a header titled “URL List”. It then searches through all URL’s in column “A”, looking for duplicates. When a duplicate is found, it is moved to the top of the list. The duplicate URL’s are then highlig…
This Micro Tutorial will demonstrate how to create pivot charts out of a data set. I also added a drop-down menu which allows to choose from different categories in the data set and the chart will automatically update.
Excel styles will make formatting consistent and let you apply and change formatting faster. In this tutorial, you'll learn how to use Excel's built-in styles, how to modify styles, and how to create your own. You'll also learn how to use your custo…

743 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

11 Experts available now in Live!

Get 1:1 Help Now