从评论中提取电话号码 [英] Extract phone numbers from comments

问题描述

• 我有评论专栏(5000多个案例)。
• 这些注释包含文本、数字、日期等所有内容。
• 我需要从这些评论中获取电话号码。
• 每条评论的电话号码都在随机位置，因此LEFT、MID或RIGHT将不起作用

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

我更喜欢公式。：)

下面两条注释示例，所需电话号码以粗体

2017年2月2日星期四下午2：37协调世界时间.386867076939，每个.pārv.Tatjana呼叫结果选择：Noruna Citālaikā-2017-02-03 07：15 AM协调世界时间.3868 nr.67074071-Neksistē，Personāla daļas vad.Tatjana neatbild，arīnr.

2017年2月2日星期四上午11：15协调世界时间4213zvanīt选择的呼叫结果：诺鲁纳CITālaikā-2017-02-07 09：00协调世界时间2017年2月14日12：59 PM协调的世界时间.4532*anita@[e-mail]选择的呼叫结果：turpināt Internetā

推荐答案

Regexp解决方案

此UDF以数组形式从文本中提取电话号码。您最终可以使用Join将其转换为CSV字符串，也可以将数组粘贴到单元格区域中。

Function extractPhones(s As String) As String()
    Dim i As Long, matches, match, ret
    With CreateObject("VBScript.Regexp")
        .Global = True
        .Pattern = "W[26]d{7}W"
        Set matches = .Execute(s)
    End With
    ReDim ret(1 To matches.Count) As String
    For Each match In matches
        i = i + 1
        ret(i) = Mid(match, 2, Len(match) - 2)
    Next
    extractPhones = ret
End Function

它使用正则表达式将电话号码与以下规格匹配：

• 正好是8位
• 从6或2开始
• 前面或后面不是字母数字字母，而是空格或标点符号。

这篇关于从评论中提取电话号码的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！