What you can do is this:

Select all data: replace all " for nothing.
you will get: Bloggs, Joe <bloggsjoe@gmail.com>

Select all data: replace all > for nothing
you will get: Bloggs, Joe <bloggsjoe@gmail.com

Write in B1: =LEFT(A1;SEARCH(" <";A1;1))
(you might need to change the seperator ; for ,)

Write in C1: =RIGHT(A1;LEN(A1)-FIND("<";A1))
(you might need to change the seperator ; for ,)


Drag that to B100 and to C100