资讯

历史

科技

环境与自然

成长

游戏

财经

文学与艺术

美食

健康

家居

文化

情感

汽车

三农

军事

旅行

运动

教育

生活

星座命理

Excel中区分移动号码的几种方法

创作时间:

作者:

@小白创作中心

Excel中区分移动号码的几种方法

引用

来源

https://docs.pingcode.com/baike/4510684

在Excel中区分移动号码是一项常见的数据处理任务。本文将详细介绍几种实用的方法，包括通过手机号前缀判断、使用Excel公式、借助VBA代码以及使用正则表达式。这些方法各有优劣，用户可以根据具体需求选择合适的方法。

在Excel中区分移动号码的几种方法有：通过手机号前缀判断、使用Excel公式、借助VBA代码。其中，通过手机号前缀判断是最常用且简单的方法。中国的移动号码前缀有特定的规律，如13系列（130、131、132等），15系列（150、151、152等），18系列（180、181、182等），14系列（145、147），17系列（170、171）。通过这些前缀，我们可以较为准确地区分移动号码。下面详细描述如何在Excel中实现这一操作。

一、通过手机号前缀判断

1.1、了解常见的移动号码前缀

在中国，移动号码的前缀具有一定的规律性。通常情况下，以下前缀常见于移动号码：

13系列：130、131、132、133、134、135、136、137、138、139
15系列：150、151、152、157、158、159
18系列：182、183、184、187、188
14系列：147
17系列：178、1705

这些前缀是中国移动号码的常见标识，可以作为判断依据。

1.2、使用Excel公式进行判断

在Excel中，可以通过IF函数结合LEFT函数来判断手机号的前缀，从而区分移动号码。例如，假设手机号在A列，可以在B列中使用以下公式来判断：

=IF(OR(LEFT(A1,3)="130", LEFT(A1,3)="131", LEFT(A1,3)="132", LEFT(A1,3)="133", LEFT(A1,3)="134", LEFT(A1,3)="135", LEFT(A1,3)="136", LEFT(A1,3)="137", LEFT(A1,3)="138", LEFT(A1,3)="139", LEFT(A1,3)="150", LEFT(A1,3)="151", LEFT(A1,3)="152", LEFT(A1,3)="157", LEFT(A1,3)="158", LEFT(A1,3)="159", LEFT(A1,3)="182", LEFT(A1,3)="183", LEFT(A1,3)="184", LEFT(A1,3)="187", LEFT(A1,3)="188", LEFT(A1,3)="147", LEFT(A1,3)="178", LEFT(A1,4)="1705"), "移动", "其他")

在上述公式中，LEFT函数提取手机号的前三位，IF函数结合OR函数判断这些前三位是否属于移动号码的前缀。如果是，则返回“移动”，否则返回“其他”。

二、使用Excel公式进行更复杂的判断

除了简单的前缀判断，还可以结合其他函数进行更复杂的判断。例如，可以使用MATCH函数和VLOOKUP函数结合来实现。

2.1、创建前缀表

首先，需要在Excel中创建一个前缀表，列出所有移动号码的前缀。假设前缀表在Sheet2的A列：

前缀
130
131
132
133
134
135
136
137
138
139
150
151
152
157
158
159
182
183
184
187
188
147
178
1705

2.2、使用MATCH和VLOOKUP函数进行判断

在B列中使用以下公式进行判断：

=IF(ISNUMBER(MATCH(LEFT(A1,3),Sheet2!A:A,0)),"移动",IF(LEFT(A1,4)="1705","移动","其他"))

在上述公式中，MATCH函数用于查找前三位是否在前缀表中，如果找到则返回“移动”，否则进一步判断是否为1705开头的号码。

三、借助VBA代码进行判断

对于大批量数据或更复杂的判断逻辑，可以借助VBA代码进行处理。

3.1、编写VBA代码

打开Excel的VBA编辑器（按Alt + F11），插入一个新模块，并编写以下代码：

Function IsMobileNumber(number As String) As String

    Dim prefix As String
    prefix = Left(number, 3)
    Select Case prefix
        Case "130", "131", "132", "133", "134", "135", "136", "137", "138", "139", "150", "151", "152", "157", "158", "159", "182", "183", "184", "187", "188", "147", "178"
            IsMobileNumber = "移动"
        Case "1705"
            IsMobileNumber = "移动"
        Case Else
            IsMobileNumber = "其他"
    End Select
End Function

3.2、使用VBA函数

在Excel单元格中使用自定义的VBA函数进行判断，例如在B1单元格中输入以下公式：

=IsMobileNumber(A1)

上述VBA函数通过Select Case语句判断手机号的前缀，返回“移动”或“其他”。

四、通过正则表达式进行高级判断

对于更复杂的号码验证，可以使用正则表达式。Excel本身不直接支持正则表达式，但可以通过VBA实现。

4.1、编写VBA代码

打开Excel的VBA编辑器，插入一个新模块，并编写以下代码：

Function IsMobileNumberRegex(number As String) As String

    Dim regex As Object
    Set regex = CreateObject("VBScript.RegExp")
    regex.Pattern = "^1(3[0-9]|4[7]|5[0-35-9]|7[0-8]|8[0-9])[0-9]{8}$"
    If regex.Test(number) Then
        IsMobileNumberRegex = "移动"
    Else
        IsMobileNumberRegex = "其他"
    End If
End Function