excel表格中怎么提取数字用公式

在Excel表格中提取数字可以使用以下几种公式：TEXT函数、VALUE函数、MID函数和数组公式。其中，最常用的方式是通过MID函数与其他函数的结合，来提取单元格中的数字。下面将详细说明一种常见且实用的方法。

一、使用MID函数和SUMPRODUCT函数提取数字

在Excel中提取数字最常用的方法是通过MID函数和SUMPRODUCT函数的结合。MID函数可以从文本字符串中提取指定位置和长度的字符，而SUMPRODUCT函数则可以对数组中的元素进行乘积求和。结合这两个函数，可以实现从混合文本中提取数字的功能。

1.1 MID函数的基本用法

MID函数的基本语法为：MID(text, start_num, num_chars)，它从文本字符串text的start_num位置开始提取num_chars个字符。

例如，对于文本字符串“abc123def”，MID("abc123def", 4, 3)将返回“123”。

1.2 SUMPRODUCT函数的基本用法

SUMPRODUCT函数的基本语法为：SUMPRODUCT(array1, [array2], ...)，它对数组中的元素进行乘积求和。

例如，SUMPRODUCT({1, 2, 3}, {4, 5, 6})将返回14 + 25 + 3*6 = 32。

1.3 结合MID和SUMPRODUCT函数提取数字

可以通过以下公式提取单元格中的数字：

=SUMPRODUCT(MID(0&A1, LARGE(INDEX(ISNUMBER(--MID(A1, ROW(INDIRECT("1:"&LEN(A1))), 1)) * ROW(INDIRECT("1:"&LEN(A1))), 0), ROW(INDIRECT("1:"&LEN(A1)))), 1) * 10^ROW(INDIRECT("1:"&LEN(A1)))/10)

这个公式的工作原理如下：

ROW(INDIRECT("1:"&LEN(A1)))生成一个从1到A1文本长度的数组。
MID(A1, ROW(INDIRECT("1:"&LEN(A1))), 1)将文本中的每个字符提取出来。
ISNUMBER(--MID(A1, ROW(INDIRECT("1:"&LEN(A1))), 1))将字符转换为数字并检查是否为数字。
INDEX(..., 0)将非数字的位置设置为0。
LARGE(..., ROW(...))按位置从大到小排序。
MID(0&A1, ..., 1)从排序后的位置提取出数字。
SUMPRODUCT(... * 10^ROW(...)/10)将提取的数字组合成一个完整的数字。

二、使用数组公式提取数字

除了使用MID和SUMPRODUCT函数，还可以使用数组公式来提取单元格中的数字。数组公式是一种特殊的公式，可以处理多个值，并返回多个结果。

2.1 数组公式的基本用法

数组公式的基本语法为：{公式}，公式中的每个部分都可以处理多个值。

例如，{=SUM(A1:A5*B1:B5)}将返回A1B1 + A2B2 + … + A5*B5。

2.2 结合数组公式提取数字

可以通过以下数组公式提取单元格中的数字：

{=SUM(IF(ISNUMBER(MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1)*1),MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1)*10^(LEN(A1)-ROW(INDIRECT("1:"&LEN(A1)))),0))}

这个公式的工作原理如下：

ROW(INDIRECT("1:"&LEN(A1)))生成一个从1到A1文本长度的数组。
MID(A1, ROW(INDIRECT("1:"&LEN(A1))), 1)将文本中的每个字符提取出来。
ISNUMBER(MID(A1, ROW(INDIRECT("1:"&LEN(A1))), 1)*1)将字符转换为数字并检查是否为数字。
MID(A1, ROW(INDIRECT("1:"&LEN(A1))), 1)*10^(LEN(A1)-ROW(INDIRECT("1:"&LEN(A1))))将提取的数字按其位置计算其实际数值。
SUM(IF(..., ..., 0))将所有数字相加。

三、使用VBA自定义函数提取数字

如果公式过于复杂，还可以使用VBA自定义函数来提取数字。VBA（Visual Basic for Applications）是一种宏语言，可以用来编写自定义函数。

3.1 创建VBA自定义函数

首先，打开Excel，按Alt + F11进入VBA编辑器。然后，插入一个新模块，并输入以下代码：

Function ExtractNumbers(Cell As Range) As Double
    Dim Char As String
    Dim Result As String
    Dim i As Integer
    Result = ""
    For i = 1 To Len(Cell.Value)
        Char = Mid(Cell.Value, i, 1)
        If IsNumeric(Char) Then
            Result = Result & Char
        End If
    Next i
    ExtractNumbers = Val(Result)
End Function

3.2 使用VBA自定义函数

保存并关闭VBA编辑器，然后在Excel中使用自定义函数ExtractNumbers：

=ExtractNumbers(A1)

这个自定义函数将遍历单元格中的每个字符，并将所有数字字符连接成一个完整的数字。

四、使用Power Query提取数字

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

4.1 加载数据到Power Query

首先，选择要处理的数据范围，然后点击“数据”选项卡，选择“从表/范围”加载数据到Power Query。

4.2 添加自定义列提取数字

在Power Query编辑器中，点击“添加列”选项卡，选择“自定义列”。在自定义列公式中输入以下代码：

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

这个公式将选择文本中的所有数字字符。

4.3 转换列类型并加载数据

将自定义列的类型转换为数字，然后点击“关闭并加载”将数据加载回Excel。

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

正则表达式（Regular Expression）是一种用于匹配字符串模式的工具。在Excel中，可以使用正则表达式提取数字。需要借助VBA实现。

5.1 创建VBA自定义函数

打开Excel，按Alt + F11进入VBA编辑器。插入一个新模块，并输入以下代码：

Function ExtractNumbersWithRegex(Cell As Range) As Double
    Dim RegEx As Object
    Dim Matches As Object
    Dim Result As String
    Set RegEx = CreateObject("VBScript.RegExp")
    RegEx.Global = True
    RegEx.Pattern = "d+"
    Set Matches = RegEx.Execute(Cell.Value)
    Result = ""
    If Matches.Count > 0 Then
        For Each Match In Matches
            Result = Result & Match.Value
        Next Match
    End If
    ExtractNumbersWithRegex = Val(Result)
End Function

5.2 使用VBA自定义函数

保存并关闭VBA编辑器，然后在Excel中使用自定义函数ExtractNumbersWithRegex：

=ExtractNumbersWithRegex(A1)

这个自定义函数将使用正则表达式提取单元格中的所有数字字符，并将其连接成一个完整的数字。

六、总结

在Excel中提取数字可以通过多种方法实现，包括使用MID函数和SUMPRODUCT函数、数组公式、VBA自定义函数、Power Query和正则表达式等。每种方法都有其优点和适用场景，可以根据具体需求选择合适的方法。

6.1 常用方法比较

MID函数和SUMPRODUCT函数：适用于简单的提取任务，公式较复杂。
数组公式：适用于需要处理多个值的情况，公式较复杂。
VBA自定义函数：适用于需要频繁使用的复杂提取任务，代码较简单。
Power Query：适用于大规模数据处理，操作较直观。
正则表达式：适用于复杂的字符串模式匹配，代码较灵活。

6.2 建议使用场景

简单提取任务：建议使用MID函数和SUMPRODUCT函数或数组公式。
复杂提取任务：建议使用VBA自定义函数或正则表达式。
大规模数据处理：建议使用Power Query。

通过掌握以上方法，可以在Excel中灵活地提取数字，提高数据处理的效率和准确性。无论是简单的提取任务还是复杂的数据处理，都能找到合适的解决方案。