从网站复制/粘贴时格式化Excel表格

我正在尝试从这个网站创建一个数据库。每个国家/地区都有大量代理商，其姓名旁边有联系方式（不需要传真号码和公司名称）。

问题是，由于网站的格式，当我将数据复制到我的Excel工作表时，每个代理的信息分布在3或4行。

我需要每个代理将所有信息放在一行，

例如（托架中的单元格）

[ A1 ]       [ B1 ]             [ C1 ]  [ D1 ]                     [ E1 ]  [ F1 ]
GRO Alberti  alerti.ago@got.ch  Bosnia  P Hora K2 A 8 41 Dhjetori  Girana  Tel:+42-79/379 82 86.

我尝试手动复制粘贴，但这需要太长时间。

是否有任何自动或更快的方式来实现我想要做的事情？

如果要使用Excel公式：

• 将表复制并粘贴到Excel中
  • 将合并前2列中的行，但公式只能在合并区域的左上角单元格中看到该值，其他单元格对于公式显示为空白
• 假设数据在单元格中开始，在单元格A2中添加以下公式E2- 输入新行Alt+Enter：

  = C2和IF（$ A3 <>“”，“”，“ 
  ”和E3）

• 将公式复制到适当的范围
• 按Name列过滤，不包括(Blanks)
• 隐藏原始Address和Other info列
• 将特殊值作为值复制并粘贴到新工作表中

基础算法是：

1. 从底行开始
2. 如果Name在1行中不是空的，S则从该行创建一个包含Address 的新字符串，
   否则将此行中的Address 添加到文本的开头S
3. 向上移动1排

我不确定你是如何获得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，我们将获得传真，在我，我们将获得移动。

在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),"")