如何从Excel中包含数字和文本的单元格中仅删除文本？

如下面的屏幕截图所示，对于那些包含数字和文本的单元格，如何删除所有文本并仅在单元格中保留数字？ 本文中的方法可以为您提供帮助。

使用用户定义的功能仅从包含数字和文本的单元格中删除文本
使用 Kutools for Excel 轻松仅从包含数字和文本的单元格中删除文本

使用用户定义的功能仅从包含数字和文本的单元格中删除文本

您还可以使用下面的用户定义函数从指定的单元格中删除文本并仅保留数字。

1。 按 其他 + F11 同时打开 Microsoft Visual Basic应用程序 窗口。

2.在 Microsoft Visual Basic应用程序 窗口中，单击 插页 > 模块。 然后将以下VBA代码复制并粘贴到 代码 窗口。 看截图：

VBA代码：仅从包含数字和文本的单元格中删除文本

Function OnlyNums(strWord As String)
    Dim strChar As String
    Dim x As Integer
    Dim strTemp As String

    strTemp = ""
    Application.ScreenUpdating = False
    For x = 1 To Len(strWord)
        strChar = Mid(strWord, x, 1)
        If Asc(strChar) >= 48 And _
          Asc(strChar) <= 57 Then
            strTemp = strTemp & strChar
        End If
    Next
    Application.ScreenUpdating = True
    OnlyNums = Val(strTemp)
End Function

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("A1:B10")) Is Nothing Then Cancel = True
End Sub

3。 按 其他 + Q 关闭键 Microsoft Visual Basic应用程序 窗口。

4.选择一个空白单元格，输入公式 =仅数字（A2） 进入编辑栏，然后按 输入 获得结果的关键。 继续选择结果单元格，向下拖动其“填充手柄”以获取所有结果。 看截图：

备注： 在公式。 A2是您将删除文本并仅保留数字的单元格。 请根据需要进行更改。

现在您可以看到所有文本都被删除，只有数字保留在指定的单元格中。

使用 Kutools for Excel 轻松仅从包含数字和文本的单元格中删除文本

本节将推荐 删除字符 实用程序 Kutools for Excel。 使用此实用程序，只需单击几下即可从单元格中删除所有非数字字符，并仅在单元格中保留数字。 请执行以下操作。

1.选择您需要删除文本并仅保留数字的单元格，然后单击 库工具 > 文本 > 删除字符. 

2.在 删除字符 对话框中，仅选中 非数值 框，然后单击 OK 按钮。

然后，立即将所有非数字字符（文本）从选定的单元格中删除，如下图所示。

相关文章:

• 如何从Excel中包含文本和数字的单元格中删除数字？