将电子邮件地址从 Word 文档移至 CSV 以导入联系人

Question

我有一个 Word 文档，其中有一长串从 Outlook 粘贴的电子邮件地址。它们通常采用“人名”格式；用分号分隔不同的地址。

现在这是一堆混乱的信息，例如“Smith，Bob”[电子邮件受保护]； “Doe，Jane”[电子邮件受保护]；等等。

有没有一种简单的方法可以将此列表转换为可以导入 Outlook 或 Google 联系人的内容？基本上我需要将其转换为 CSV，其中每个名称都在一列中，每封电子邮件在另一列中，没有“”和 <>

有什么想法吗？预先感谢。

我尝试过的： 当我将此文档转换为分号分隔的文档时，每个个人姓名和电子邮件最终都会出现在一个单独的单元格中，全部位于一行中。但姓名和电子邮件位于同一单元格中，并且包含“”和 <>

Answer 1

这就是你要做的：

1. 将文档转换为纯文本
2. 导入Excel；分号分隔
3. 复制该行数据，点击新单元格，转置得到一列数据 4) 在单元格 B1 中，粘贴以下内容：=IF(ISNUMBER(FIND(",", MID(A1, FIND("""", A1)+1, FIND("""", A1, FIND(""") ", A1)+1)-FIND("""", A1)-1))), MID(A1, FIND(",", A1)+2, FIND("""", A1, FIND(",", A1))-FIND(",", A1)-2), IF(ISNUMBER(FIND(" ", MID(A1, FIND("""", A1)+1, FIND("""", A1, FIND("""", A1)+1)-FIND(" “””，A1)-1)))， 左(MID(A1, 查找("""", A1)+1, 查找("""", A1, 查找("""", A1)+1)-查找("""", A1)- 1), FIND(" ", MID(A1, FIND("""", A1)+1, FIND("""", A1, FIND("""", A1)+1)-FIND("" “”，A1)-1))-1)， MID(A1, FIND("""", A1)+1, FIND("""", A1, FIND("""", A1)+1)-FIND("""", A1)-1) ） )

这将获取名称的格式，无论其格式是“第一个，最后一个”还是“第一个最后一个”，如果都不是，则只需将值粘贴到“”中 5) 在单元格 C1 中粘贴： =IF(ISNUMBER(FIND(",", MID(A1, FIND("""", A1)+1, FIND("""", A1, FIND("""") , A1)+1)-FIND("""", A1)-1))), 左(MID(A1, FIND("""", A1)+1, FIND(",", A1)-FIND("""", A1)-1), FIND(",", A1)-FIND ("""", A1)-1), IF(ISNUMBER(FIND(" ", MID(A1, FIND("""", A1)+1, FIND("""", A1, FIND("""", A1)+1)-FIND(" “””，A1)-1)))， MID(A1, FIND(" ", A1)+1, FIND("""", A1, FIND(" ", A1))-FIND(" ", A1)-1), MID(A1, FIND("""", A1)+1, FIND("""", A1, FIND("""", A1)+1)-FIND("""", A1)-1) ） )

将对姓氏做同样的事情 6) 将其粘贴到 C1 中： =MID(A1, FIND("<", A1)+1, FIND(">", A1) - FIND("<", A1) - 1)

-- 拉出电子邮件地址

完成！