Delimit city, state, zip if there are multiple commas

When working with addresses and delimiting, there are always going to be exceptions. I try to use the 90/10 rule. If I use the standard Text-to-columns function and it works for at least 90% of the data, I'll manually update those that failed.

If, of those that failed, a majority are for one reason, I will build that on top of the Text-to-columns (use a macro instead) and leave the manual work to a very small percentage.

In your example, who is to say that there won't be two commas next to each other, or a third comma between the state and zip? Or no commas? There's a number of possibilities, and while many can be checked and coded for, the time spent trying to cover all the exceptions can easily exceed the time spent getting most done quickly and manually fixing a few exceptions.

Hello undergraduate,

I modified a macro I wrote about 2 years to parse both US and Canadian mail addresses. This macro requires that the city be followed by at least one comma, the state is abbreviated according to US Postal standards, and the Zip can be 5 digits or 9 (Zip + 4). The Zip + 4 can be separated by a hyphen, a space or neither.

The macro assumes the addresses are in column "A" of the ActiveSheet. The city will be in "A", the state in "B", and the Zip in "C" after the macro runs. If the macro does not recognize the address according to its rules (see above) then it remains untouched.

Please Login or Register  to view this content.

Adding the Macro

1. Copy the macro above pressing the keys CTRL+C
2. Open your workbook
3. Press the keys ALT+F11 to open the Visual Basic Editor
4. Press the keys ALT+I to activate the Insert menu
5. Press M to insert a Standard Module
6. Paste the code by pressing the keys CTRL+V
   
7. Make any custom changes to the macro if needed at this time.
8. Save the Macro by pressing the keys CTRL+S
9. Press the keys ALT+Q to exit the Editor, and return to Excel.

To Run the Macro...
To run the macro from Excel, open the workbook, and press ALT+F8 to display the Run Macro Dialog. Double Click the macro's name to Run it.