从评论中提取电话号码

• 我有一个专栏，其中有评论（超过 5000 个案例）。
• 这些评论有文字、数字、日期等等。
• 我需要从这些评论中获取电话号码。
• 每条评论的电话号码都是随机的，所以LEFT,MID or RIGHT不管用

我达到的最接近的结果是 Kutools=EXTRAXTNUMBERS()......但我得到一行数字，其中包括日期、ID 等。

更喜欢一个公式。 :)

下面两个示例评论，所需的电话号码在bold

2017 年 2 月 2 日星期四下午 2:37 协调世界时间 .386867076939,pers .pārv.Tatjana 选择的通话结果：Noruna citā laikā - 2017-02-03 07:15 2017 年 2 月 8 日星期三上午 8:18 协调世界时间 .3868 nr.67074071-neeksistē，personāla daļas vad.Tatjana cleanbild，arī nr。67076600选择的通话结果：Neceļ 2017 年 2 月 10 日星期五上午 7:15 协调世界时间 * .3868 *** piezv ap 13 选择的通话结果：Noruna citā laikā - 2017-02-10 11:15

2017 年 2 月 2 日星期四上午 11:15 协调世界时间 4213 zvanīt66119908选择的通话结果：Noruna citā laikā - 2017-02-07 09:00 2017 年 2 月 14 日星期二 12:59 PM 协调世界时间 .4532 * anita@[电子邮件受保护]选择的通话结果：Turpināt internetā

这个小UDF()将返回字符串中的所有 8 位数字子字符串：

Public Function PHNum(s As String) As String
    Dim L As Long, i As Long, temp As String
    Dim CH As String
    L = Len(s)
    temp = ""
    PHNum = ""
    For i = 1 To L
        CH = Mid(s, i, 1)
        If IsNumeric(CH) Then
            temp = temp & CH
            If Len(temp) = 8 Then
                PHNum = PHNum & vbCrLf & temp
            End If
        Else
            temp = ""
        End If
    Next i
End Function

Note:

要获取输出单元格中的堆叠格式，请将其格式化为换行。