excel表格怎么只留手机号

在Excel表格中只保留手机号，可以通过以下几种方法：使用筛选功能、使用公式、使用宏（VBA）脚本、手动删除。具体方法依情况而定。

使用筛选功能可以快速筛选出包含手机号的行，方便删除其他数据。接下来，我们详细讲解这种方法。

一、使用筛选功能

筛选功能是Excel中一个强大而便捷的工具，可以快速筛选出特定条件的数据。以下是使用筛选功能只保留手机号的步骤：

1.1 添加筛选器

首先，选中包含数据的整个表格区域，点击工具栏中的“数据”选项，然后点击“筛选”按钮。这将为您的表格添加筛选器。

1.2 筛选手机号

在添加了筛选器后，点击手机号所在列的筛选箭头，在弹出的菜单中选择“文本筛选”，然后选择“包含”。在弹出的对话框中输入手机号的特征（例如：“13”、“15”等），点击确定。这样，表格中就只显示包含这些特征的行。

1.3 删除其他数据

筛选出包含手机号的行后，选中所有其他列的数据，右键选择“删除”。完成后，取消筛选，这样您的表格中就只剩下手机号了。

二、使用公式

如果手机号在表格的特定列中，您也可以使用公式将其他数据筛选出来并删除。以下是详细步骤：

2.1 使用IF公式

在一个新的列中，使用IF公式判断每行数据是否包含手机号。例如，如果手机号在A列，您可以在B列输入以下公式：

=IF(AND(ISNUMBER(FIND("13", A1)), LEN(A1) = 11), A1, "")

这个公式将会检查A列中的每个单元格，如果它包含“13”并且长度是11（假定手机号长度为11位），则返回该单元格的内容，否则返回空白。

2.2 复制并粘贴值

在B列中输入公式后，复制B列并粘贴为值，然后删除原始数据列（A列）。这样，B列中只会保留包含手机号的行。

三、使用宏（VBA）脚本

如果您需要频繁执行这一操作，使用宏（VBA）脚本会更加高效。以下是一个简单的VBA脚本示例，来筛选并保留手机号：

3.1 打开VBA编辑器

按下快捷键Alt + F11打开VBA编辑器，然后插入一个新模块。

3.2 输入脚本

在新模块中输入以下脚本：

Sub KeepPhoneNumbers()
    Dim ws As Worksheet
    Dim rng As Range
    Dim cell As Range
    Dim lastRow As Long
    Set ws = ThisWorkbook.Sheets("Sheet1")  '将Sheet1替换为您的表格名称
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row  '假设手机号在A列
    For Each cell In ws.Range("A1:A" & lastRow)
        If Not IsNumeric(cell.Value) Or Len(cell.Value) <> 11 Then
            cell.ClearContents
        End If
    Next cell
    ws.Range("A1:A" & lastRow).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

3.3 运行脚本

关闭VBA编辑器，返回Excel表格，按下快捷键Alt + F8，选择“KeepPhoneNumbers”宏并运行。此脚本会检查A列中的每个单元格，如果单元格内容不是数字或长度不是11位，则清空该单元格并删除空白行。

四、手动删除

对于小型数据集，手动删除也是一个有效的方法。以下是详细步骤：

4.1 手动查找手机号

逐行检查表格中的数据，将包含手机号的单元格标记出来。

4.2 删除其他数据

选中并删除所有不包含手机号的行或列。尽管这种方法适用于数据量小的情况，但效率较低，不推荐用于大规模数据处理。

总结

在Excel表格中只保留手机号的几种方法包括使用筛选功能、使用公式、使用宏（VBA）脚本、手动删除。每种方法都有其优缺点，适用于不同的情况。使用筛选功能是最便捷的方法，适合大多数用户；使用公式可以进行更精细的控制；使用VBA脚本效率最高，适合需要频繁操作的情况；手动删除适用于小型数据集。根据您的具体需求选择合适的方法，能够有效提高工作效率。