This one is very similar to your second problem in your other post and we solve it in a similar way.
First remove all the Spaces in the string
Then use your macro to insert a space before each capital letter.
That should give you:
A
1) Mr. Thomas B Fernandez New York. NY
2) Mr. Barry K Olivia Houston. TX
3) Ms. Dorothy D Hawell Rocky Mount. NC
4) Mr. Thomas L Morg Deerpark. NY
5) Mrs. Jennifer D Leblanca Carlisle. PA
Next we need to replace the 4th instance of a Space character, so in B1 enter the formula:
=SUBSTITUTE(A1," ","|",4)
This should give you:
A B
1) Mr. Thomas B Fernandez New York. NY Mr. Thomas B Fernandez|New York. NY
2) Mr. Barry K Olivia Houston. TX Mr. Barry K Olivia|Houston. TX
3) Ms. Dorothy D Hawell Rocky Mount. NC Ms. Dorothy D Hawell|Rocky Mount. NC
4) Mr. Thomas L Morg Deerpark. NY Mr. Thomas L Morg|Deerpark. NY
5) Mrs. Jennifer D Leblanca Carlisle. PA Mrs. Jennifer D Leblanca|Carlisle. PA
You can now use Text to Columns and split up the cell into it's separate parts using the pipe symbol.
A couple of problem, you will probably have, is a name with NO middle initial or a name not capitalized.
That will mess up the number of spaces in the string.
You may need to tweek the formula a bit.
Bookmarks