Я не уверен точно, как вы получаете значение C1, но вы должны быть в состоянии получить источник страницы. Для этого нажмите Ctrl+U. Это должно дать вам страницу, написанную на HTML. Найдите строку 128 (или там, где начинается таблица, там должны быть нужные вам данные, и она начинается с <table class ...
Скопируйте все из <table class ... в </table> которая находится на той же строке, рядом с концом.
Вставьте это в блокнот.
Нажмите Ctrl+H и используйте Найти что: <br /> Заменить на: "" (один пробел) и нажмите Заменить все.
Скопируйте все и вставьте в Excel. После этого вы можете удалить форматирование, чтобы выровнять размеры ячейки.
Обратите внимание, что гиперссылки останутся в данных.
РЕДАКТИРОВАТЬ:
Чтобы отделить электронную почту, телефон, мобильный телефон и факс будут немного длиннее, но не так долго.
Чтобы получить электронное письмо, используйте эту формулу в следующей ячейке в E2:
=LEFT(D2, FIND(" ",D2)-1)
И перетащите вниз.
Чтобы получить числа сейчас, проще будет сначала получить их все отдельно в столбце F:
=MID(D2, FIND(" ",D2)+1, LEN(D2))
Теперь в G мы получим телефон, в H мы получим факс, а в I мы получим мобильный телефон.
В G2 вставьте и перетащите вниз:
=IFERROR(MID(F2,FIND("Tel:",F2)+4,IFERROR(FIND(":",F2,FIND("Tel:",F2)+4),LEN(F2))-FIND("Tel:",F2)-4),"")
В H2 вставьте и перетащите вниз:
=IFERROR(MID(F2,FIND("Fax:",F2)+4,IFERROR(FIND(":",F2,FIND("Fax:",F2)+4),LEN(F2))-FIND("Fax:",F2)-4),"")
В I2 вставьте и перетащите вниз:
=IFERROR(MID(F2,FIND("Mobile:",F2)+7,IFERROR(FIND(":",F2,FIND("Mobile:",F2)+7),LEN(F2))-FIND("Mobile:",F2)-7),"")
После этого скопируйте все и вставьте в качестве значений, чтобы удалить формулы. Выделите столбцы от G до I и замените все Tel , Fax и Mobile с помощью Ctrl+H.
Французский функционирует в порядке, указанном выше:
=GAUCHE(D2, TROUVE(" ",D2)-1)
=STXT(D2, TROUVE(" ",D2)+1, NBCAR(D2))
=SIERREUR(STXT(F2,TROUVE("Tel:",F2)+4,SIERREUR(TROUVE(":",F2,TROUVE("Tel:",F2)+4),NBCAR(F2))-TROUVE("Tel:",F2)-4),"")
=SIERREUR(STXT(F2,TROUVE("Fax:",F2)+4,SIERREUR(TROUVE(":",F2,TROUVE("Fax:",F2)+4),NBCAR(F2))-TROUVE("Fax:",F2)-4),"")
=SIERREUR(STXT(F2,TROUVE("Mobile:",F2)+7,SIERREUR(TROUVE(":",F2,TROUVE("Mobile:",F2)+7),NBCAR(F2))-TROUVE("Mobile:",F2)-7),"")
