excel怎么提取一段话中的数字

在Excel中提取一段话中的数字，可以通过公式、VBA代码和Power Query等方式来实现。使用公式提取数字、使用VBA提取数字、使用Power Query提取数字。其中，使用公式提取数字是最简单和直接的方法。下面将详细介绍这几种方法的具体步骤和实现方式。

一、使用公式提取数字

1. 使用数组公式提取数字

在Excel中，可以使用数组公式来提取一段话中的数字。以下是一个示例公式：

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

这个公式使用了MID、ROW、INDIRECT和TEXTJOIN函数来提取单元格A1中的所有数字并将它们连接成一个字符串。具体步骤如下：

在一个空白单元格中输入上述公式。
按下Ctrl + Shift + Enter键，确保公式作为数组公式输入。
公式将返回A1单元格中所有数字组成的字符串。

2. 使用自定义函数提取数字

如果你对VBA编程有一定了解，可以编写一个自定义函数来提取数字。以下是一个示例VBA代码：

Function ExtractNumbers(ByVal str As String) As String
    Dim i As Integer
    Dim result As String
    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

使用这个函数非常简单：

按下Alt + F11打开VBA编辑器。
插入一个新模块（Insert -> Module）。
将上述代码粘贴到模块中。
关闭VBA编辑器。
在工作表中使用公式=ExtractNumbers(A1)来提取A1单元格中的数字。

二、使用VBA提取数字

1. 编写VBA宏提取数字

除了自定义函数，还可以编写一个VBA宏来提取一段话中的数字。以下是一个示例代码：

Sub ExtractNumbersMacro()
    Dim rng As Range
    Dim cell As Range
    Dim i As Integer
    Dim result As String
    Set rng = Selection
    For Each cell In rng
        result = ""
        For i = 1 To Len(cell.Value)
            If IsNumeric(Mid(cell.Value, i, 1)) Then
                result = result & Mid(cell.Value, i, 1)
            End If
        Next i
        cell.Offset(0, 1).Value = result
    Next cell
End Sub

使用这个宏的步骤如下：

按下Alt + F11打开VBA编辑器。
插入一个新模块（Insert -> Module）。
将上述代码粘贴到模块中。
关闭VBA编辑器。
选择要处理的单元格区域。
按下Alt + F8打开宏对话框。
选择ExtractNumbersMacro并点击“运行”。
提取的数字将显示在所选单元格的右侧。

三、使用Power Query提取数字

1. 使用Power Query提取数字

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

选择包含文本的单元格区域。
点击“数据”选项卡，然后选择“从表/范围”。
在Power Query编辑器中，点击“添加列”选项卡。
选择“自定义列”。
在“自定义列”对话框中，输入以下公式：

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

点击“确定”。
将新列重命名为“提取的数字”。
点击“关闭并加载”将结果返回到Excel工作表。

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

1. 使用正则表达式和VBA提取数字

正则表达式是一种强大的文本匹配工具，可以用来提取复杂的模式。以下是一个使用正则表达式提取数字的VBA代码示例：

Function ExtractNumbersRegEx(ByVal str As String) As String
    Dim regEx As Object
    Set regEx = CreateObject("VBScript.RegExp")
    regEx.Global = True
    regEx.Pattern = "d"
    Dim matches As Object
    Set matches = regEx.Execute(str)
    Dim result As String
    Dim i As Integer
    For i = 0 To matches.Count - 1
        result = result & matches(i).Value
    Next i
    ExtractNumbersRegEx = result
End Function

使用这个函数的步骤如下：

按下Alt + F11打开VBA编辑器。
插入一个新模块（Insert -> Module）。
将上述代码粘贴到模块中。
关闭VBA编辑器。
在工作表中使用公式=ExtractNumbersRegEx(A1)来提取A1单元格中的数字。

五、使用Excel内置函数组合提取数字

1. 使用多种函数组合提取数字

即使没有数组公式或VBA的帮助，也可以通过组合多个Excel内置函数来提取数字。以下是一个示例公式：

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

使用这个公式的步骤与数组公式类似：

在一个空白单元格中输入上述公式。
按下Ctrl + Shift + Enter键，确保公式作为数组公式输入。
公式将返回A1单元格中所有数字组成的字符串。

通过上述几种方法，你可以在Excel中轻松提取一段话中的数字。每种方法都有其优缺点，选择哪种方法取决于你的具体需求和熟悉程度。如果你对VBA编程不熟悉，可以选择使用公式或Power Query；如果你需要处理大量数据，使用VBA宏可能更高效。