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

ms excelmicrosoft technologiesadvanced excel function更新于 2025/3/18 0:12:17

如果您曾经处理过 Excel 中某些单元格混合了文本和数字的数据，您就会明白区分这两者有多么困难。无论您处理的是调查数据、财务数据还是任何其他数据集，适当地清理和排列数据都至关重要。在本教程结束时，您将全面了解可以采用的多种策略，以便成功完成此数据清理操作。

仅删除包含数字和文本的单元格中的文本

在这里，我们将创建一个 VBA 模块，然后选择单元格范围来完成任务。让我们看一个简单的过程，了解如何在 Excel 中从包含数字和文本的单元格中仅删除文本。

步骤 1

假设有一个 Excel 工作表，其中包含包含文本和数字的字符串列表，类似于下图。

首先，右键单击工作表名称，然后选择"查看代码"以打开 VBA 应用程序。

右键单击 >"查看代码"。

步骤 2

然后点击"插入"，选择"模块"，然后将以下代码复制到文本框中。

插入 >"模块">复制。

代码

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