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


如果您曾经需要处理 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

步骤 3

然后使用 Alt + Q 关闭 VBA。然后单击一个空单元格并输入公式 =OnlyNums(A2),单击回车,然后使用自动填充柄向下拖动。

结论

在本教程中,我们使用了一个简单的示例来演示如何在 Excel 中仅从包含数字和文本的单元格中删除文本,以突出显示特定数据集。

更新于: 2023-09-08

274 次浏览

启动你的 职业生涯

通过完成课程获得认证

开始
广告

© . All rights reserved.