从SINGLE单元格删除重复项和回车

我已经看到macros来解决我的问题非常接近，但似乎无法使他们为我的情况工作。 我有一系列的单元来应用修复。 每个SINGLE单元格都有完全重复的名称，仅由一个回车符分隔。 是否有macros删除重复的名称和回车从单元？ 这是一个例子。

当前单元格A1：
John P. Doe
John P. Doe
John P. Doe
John P. Doe

当前单元格A2：
马克J.史密斯
马克J.史密斯

细胞A1的理想结果：
John P. Doe

单元格A2的预期结果：
马克J.史密斯

Answer 1

把它放在B1中，然后向下拖动：

=Trim(LEFT(A1,SEARCH(CHAR(13),A1,1))) 。

Char(13)相当于回车。 这将查看第一个回车的左侧的所有文本，并返回该文本。

如果他们不是真正的回车，而是一个新的行，使用Char(10) 。