资讯

历史

科技

环境与自然

成长

游戏

财经

文学与艺术

美食

健康

家居

文化

情感

汽车

三农

军事

旅行

运动

教育

生活

星座命理

Excel中如何从一串字符中提取数字

创作时间:

作者:

@小白创作中心

Excel中如何从一串字符中提取数字

引用

来源

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

在Excel中从一串字符中提取数字的方法包括：使用公式、利用函数和VBA代码等。本文将详细介绍这些方法，并提供实际操作步骤，帮助用户根据需要选择最适合的方法。

一、使用公式提取数字

在Excel中，可以通过组合使用函数来从字符中提取数字。常用的函数包括：MID、FIND、LEN、IF、ISNUMBER等。以下是几种常见的公式：

1、使用MID和FIND函数

MID函数用于从文本字符串中提取指定数量的字符，而FIND函数用于查找特定字符在文本中的位置。通过组合这两个函数，可以提取字符串中的数字。

=MID(A1, MIN(FIND({0,1,2,3,4,5,6,7,8,9}, A1 & "0123456789")), SUM(LEN(A1) - LEN(SUBSTITUTE(A1, {0,1,2,3,4,5,6,7,8,9}, ""))))

这个公式通过查找数字的位置，并使用MID函数提取这些数字。

2、使用数组公式

数组公式可以处理多个单元格中的数据，并返回多个结果。以下是一个数组公式的示例：

=TEXTJOIN("", TRUE, IF(ISNUMBER(MID(A1, ROW(INDIRECT("1:" & LEN(A1))), 1) * 1), MID(A1, ROW(INDIRECT("1:" & LEN(A1))), 1), ""))

这个公式将字符串中的每个字符逐一检查，如果是数字，则将其连接在一起。

二、使用自定义函数提取数字

在Excel中，可以通过VBA（Visual Basic for Applications）编写自定义函数来提取数字。以下是一个示例代码：

1、编写VBA代码

打开Excel，按下
Alt + F11
进入VBA编辑器，选择
Insert

Module
，然后将以下代码粘贴到模块中：

Function ExtractNumbers(ByVal str As String) As String  

    Dim i As Integer  
    Dim result As String  
    result = ""  
    For i = 1 To Len(str)  
        If IsNumeric(Mid(str, i, 1)) Then  
            result = result & Mid(str, i, 1)  
        End If  
    Next i  
    ExtractNumbers = result  
End Function

2、使用自定义函数

返回Excel工作表，在单元格中输入以下公式即可使用自定义函数提取数字：

=ExtractNumbers(A1)

三、利用Power Query提取数字

Power Query是Excel中的强大工具，可以用于数据整理和处理。以下是使用Power Query提取数字的步骤：

1、加载数据到Power Query

选择要处理的数据区域，点击
数据

从表/范围
，将数据加载到Power Query编辑器中。

2、添加自定义列

在Power Query编辑器中，点击
添加列

自定义列
，在公式框中输入以下公式：

Text.Select([Column1], {"0".."9"})

其中，
[Column1]
表示需要处理的列名。此公式将从字符串中提取所有数字。

3、关闭并加载

点击
关闭并加载
按钮，将处理后的数据加载回Excel工作表中。

四、使用正则表达式提取数字

正则表达式是一种强大的文本处理工具，在Excel中可以通过VBA或第三方插件使用正则表达式提取数字。

1、使用VBA正则表达式

以下是一个使用VBA正则表达式提取数字的示例代码：

Function ExtractNumbersRegex(ByVal str As String) As String  

    Dim regex As Object  
    Set regex = CreateObject("VBScript.RegExp")  
    regex.Pattern = "d+"  
    regex.Global = True  
    Dim matches As Object  
    Set matches = regex.Execute(str)  
    Dim result As String  
    result = ""  
    Dim match As Object  
    For Each match In matches  
        result = result & match.Value  
    Next match  
    ExtractNumbersRegex = result  
End Function