如何在Excel中删除单元格中字符串之间的一些文本

Question

我在Excel中有一些公司地址-这是其中一个单元格的外观。任何单元格中公司地址的数量都不同。

abc
United Kingdom
Main Phone: 1234567
Main Fax: 63273818
Other Phone: 53177188

dfr
China
Main Phone: 2345671
Main Fax: 632738188

rtg
United States
Main Phone: 2434571
Main Fax: 3278188
Other Phone: 31771988

What I want as a outcome is 

abc
United Kingdom

dfr
China

rtg
United States

我为此进行了研究；但是，找不到任何东西。我试图找到一种方法来获取“主要”和空行的位置，然后删除之间的文本。我尝试使用CHAR(10) & CHAR(13) ..，但这些方法无效。在这方面的任何帮助都将受到欢迎。非常感谢。

P.S >>如果任何人都可以建议任何VBA代码进行工作，那也会很有用。非常感谢。

Answer 1

使用此功能：

Function remo(txt As String) As String

    txt1 = Split(txt, Chr(10) & Chr(10))

    For i = LBound(txt1) To UBound(txt1)

        remo = remo & Left(txt1(i), InStr(1, txt1(i), "Main") - 1) & Chr(10) & Chr(10)
        Debug.Print txt2

    Next

End Function

Here you will find how to add a Custom Function In Excel