Excel自动核对手机号的四种方法：公式、条件格式、数据验证和VBA脚本

创作时间:

作者:

@小白创作中心

Excel自动核对手机号的四种方法：公式、条件格式、数据验证和VBA脚本

引用

来源

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

Excel自动核对手机号的方法包括：使用公式、条件格式、数据验证、VBA脚本。 其中，使用公式是最直观和简单的方法，通过公式可以直接比对两列中的手机号是否一致，并在需要时进行高亮提醒。下面详细介绍如何使用公式来自动核对手机号的方法。

一、公式法自动核对手机号

使用公式比对两列手机号是否一致是最常见的方法。假设A列和B列分别是需要核对的两列手机号：

在C列输入比对公式 ：
```
=IF(A2=B2, "匹配", "不匹配")
```
这个公式将会比较A2和B2单元格的内容，如果它们相同则返回“匹配”，否则返回“不匹配”。
拖动公式 ：

将C2单元格的公式向下拖动，应用到C列的其他单元格中。这样，C列的每一个单元格都会显示对应的手机号是否匹配。

二、条件格式法高亮显示不匹配手机号

在使用公式法的基础上，可以进一步使用条件格式来高亮显示不匹配的手机号，以便更直观地看到问题所在。

选择需要比对的单元格 ：

选择A列和B列需要比对的单元格区域，例如A2:A100和B2:B100。
应用条件格式 ：

在“开始”选项卡中，选择“条件格式” -> “新建规则”。
使用公式确定格式化的单元格 ：

输入公式：
```
=A2<>B2
```
并设置填充颜色，例如红色。
确认并应用 ：

确认后，Excel会自动高亮显示A列和B列中不匹配的手机号。

三、数据验证法确保输入手机号的格式一致

数据验证可以确保输入的手机号格式一致，从而减少比对错误。

选择数据验证的单元格 ：

选择A列和B列需要输入手机号的单元格区域。
设置数据验证 ：

在“数据”选项卡中，选择“数据验证” -> “数据验证”。
选择验证条件 ：

在“允许”下拉列表中选择“自定义”，并输入公式：
```
=ISNUMBER(A2)
```
确保输入的是数字。
设置输入信息和出错警告 ：

可以设置输入信息和出错警告，提示用户正确输入手机号格式。

四、VBA脚本法实现更高级的自动核对功能

对于需要更复杂自动化处理的情况，可以使用VBA脚本来实现自动核对手机号。

打开VBA编辑器 ：

按下Alt + F11打开VBA编辑器。
插入模块 ：

在左侧的项目窗口中，右键点击VBA项目，选择“插入” -> “模块”。

编写VBA代码 ：

输入以下代码：

Sub CheckPhoneNumbers()    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Set ws = ThisWorkbook.Sheets("Sheet1")
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    For i = 2 To lastRow
        If ws.Cells(i, 1).Value <> ws.Cells(i, 2).Value Then
            ws.Cells(i, 1).Interior.Color = RGB(255, 0, 0)
            ws.Cells(i, 2).Interior.Color = RGB(255, 0, 0)
        End If
    Next i
End Sub

运行脚本 ：

关闭VBA编辑器，按下Alt + F8，选择“CheckPhoneNumbers”并运行脚本。脚本会自动高亮显示不匹配的手机号。

五、其他实用技巧

除了上述方法，还有一些实用技巧可以帮助更好地核对手机号：

使用Trim函数 ：

有时手机号前后可能会有空格，使用TRIM函数去除空格可以避免比对错误。
```
=IF(TRIM(A2)=TRIM(B2), "匹配", "不匹配")
```
标准化手机号格式 ：

可以通过函数将不同格式的手机号标准化，例如去掉“-”或空格。
```
=SUBSTITUTE(SUBSTITUTE(A2, "-", ""), " ", "")
```
处理国际区号 ：

对于含有国际区号的手机号，可以统一处理区号部分。
```
=IF(LEFT(A2, 3)="+86", MID(A2, 4, LEN(A2)-3), A2)
```