extracting URLs from cells and copying to another

I have a column of data that includes strings of text and URLs. There is no regularized format for how or where the URLs appear in the string of text.

Thus far I've been either manually selecting and copying each URL to a new column to isolate it or copying the whole list to a new column and deleting anything that doesn't begin with "http://..." I would like to find or automate a process for finding the URL in each cell and copying it to a cell in another column. I haven't found a function yet that seems like it would be good for this purpose.

Help?

- RA

If the address is followed by a space or is at the end of the string, you can try something like:

=TRIM(LEFT(MID(A1,FIND("http://",A1),255),FIND(" ",MID(A1,FIND("http://",A1),255)&" ")))

where A1 contains the original string.