怎么把excel中的数字单独提取出来

要把Excel中的数字单独提取出来，可以使用公式、VBA宏、文本到列功能、Power Query等方法。下面详细介绍其中一种方法，即使用公式进行提取：

使用公式提取数字：

确定目标单元格：在一个新单元格中输入公式。
应用公式：使用Excel内置的函数，如MID、IF、ISNUMBER、LEN、SUMPRODUCT等来提取数字。

例如，可以使用以下公式提取包含在单元格A1中的数字：

=SUMPRODUCT(MID(0&A1,LARGE(INDEX(ISNUMBER(--MID(A1,ROW($1:$100),1))*ROW($1:$100),0),ROW($1:$100))+1,1)*10^ROW($1:$100)/10)

这个公式通过逐字符检查A1中的每个字符，并且将所有数字组合在一起，形成一个最终的数字。

一、使用公式提取数字

1、MID、SUMPRODUCT与其他函数组合

在Excel中，函数组合可以非常强大。上面的公式就是一个很好的例子，它利用MID、ISNUMBER、ROW和SUMPRODUCT函数来提取数字。让我们详细拆解这个公式：

1.1、MID函数

MID函数用于从文本字符串中提取特定位置的字符。其语法为：

MID(text, start_num, num_chars)

其中，text是要从中提取字符的文本，start_num是开始位置，num_chars是要提取的字符数。

在提取数字时，我们需要逐字符检查，因此我们将start_num设为一个动态值，通过ROW函数生成一系列数字来实现。

1.2、ISNUMBER函数

ISNUMBER函数用于检查值是否为数字。其语法为：

ISNUMBER(value)

在公式中，ISNUMBER(--MID(A1,ROW($1:$100),1))检查从A1中提取的每个字符是否为数字。

1.3、SUMPRODUCT函数

SUMPRODUCT函数用于将数组相乘并返回和。其语法为：

SUMPRODUCT(array1, [array2], [array3], ...)

在公式中，SUMPRODUCT将所有提取的数字组合成一个最终的数字。

2、使用数组公式

数组公式允许我们在单元格中执行多次计算，并将结果组合在一起。以下是一个简单的数组公式，用于提取单元格中的数字：

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

2.1、TEXTJOIN函数

TEXTJOIN函数用于将多个文本字符串组合成一个字符串。其语法为：

TEXTJOIN(delimiter, ignore_empty, text1, [text2], ...)

其中，delimiter是分隔符，ignore_empty决定是否忽略空单元格，text1、text2等是要组合的文本。

3、使用正则表达式

正则表达式是一种强大的文本处理工具。在Excel中，可以通过VBA宏来使用正则表达式提取数字。以下是一个简单的VBA宏示例：

Function ExtractNumbers(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
    Dim match As Object
    For Each match In matches
        result = result & match.Value
    Next match
    ExtractNumbers = result
End Function

在Excel中，按Alt + F11打开VBA编辑器，插入一个新模块并粘贴上述代码。然后在Excel单元格中使用如下公式：

=ExtractNumbers(A1)

二、使用VBA宏提取数字

VBA（Visual Basic for Applications）是一种强大的编程语言，可以用于自动化Excel任务。通过编写VBA宏，我们可以实现更复杂和定制化的数字提取。

1、编写VBA宏

以下是一个完整的VBA宏示例，用于提取单元格中的数字：

Sub ExtractNumbersMacro()
    Dim cell As Range
    Dim regEx As Object
    Set regEx = CreateObject("VBScript.RegExp")
    regEx.Pattern = "d+"
    regEx.Global = True
    For Each cell In Selection
        If Not IsEmpty(cell) Then
            Dim matches As Object
            Set matches = regEx.Execute(cell.Value)
            Dim result As String
            Dim match As Object
            For Each match In matches
                result = result & match.Value
            Next match
            cell.Offset(0, 1).Value = result
        End If
    Next cell
End Sub

2、运行VBA宏

按Alt + F11打开VBA编辑器。
插入一个新模块并粘贴上述代码。
关闭VBA编辑器，返回Excel。
选择要提取数字的单元格范围。
按Alt + F8打开宏对话框，选择ExtractNumbersMacro并运行。

这个VBA宏将提取选定单元格中的数字，并将结果放置在右侧的单元格中。

三、使用文本到列功能

Excel的“文本到列”功能可以用于将单元格中的内容拆分为多个列。虽然这个功能主要用于分隔符拆分，但也可以间接用于提取数字。

1、使用文本到列功能

选择包含数据的单元格。
转到“数据”选项卡，点击“文本到列”。
选择“固定宽度”或“分隔符”，根据需要进行设置。
在“列数据格式”中选择“文本”。
完成向导并查看结果。

2、手动筛选数字

使用“文本到列”功能后，您可以手动筛选数字列并将其复制到其他位置。这种方法适用于简单的数字提取任务。

四、使用Power Query提取数字

Power Query是Excel中的一个强大工具，可以用于数据清洗和转换。它具有直观的界面和强大的功能，非常适合处理复杂的数据提取任务。

1、加载数据到Power Query

选择包含数据的单元格范围。
转到“数据”选项卡，点击“从表格/范围”。
在弹出的Power Query编辑器中，选择要处理的列。

2、应用自定义列

在Power Query编辑器中，点击“添加列”选项卡，选择“自定义列”。
在自定义列公式中，使用如下M代码提取数字：

= Text.Combine(List.Transform(Text.ToList([Column1]), each if Value.Is(Value.FromText(_), type number) then _ else null), "")

其中，[Column1]是包含数据的列名称。

3、加载数据回Excel

完成数据处理后，点击“关闭并加载”将结果加载回Excel。

Power Query提供了灵活且强大的数据处理功能，适用于大规模和复杂的数据提取任务。

五、使用第三方工具和插件

除了Excel内置的功能和VBA宏，还有一些第三方工具和插件可以帮助提取数字。这些工具通常具有更强大的功能和更直观的界面。

1、Kutools for Excel

Kutools for Excel是一个功能强大的Excel插件，提供了超过300种高级功能。它的“提取文本”工具可以轻松提取单元格中的数字。

2、Ablebits Data Tools

Ablebits Data Tools是另一个流行的Excel插件，提供了多种数据处理工具。它的“提取工具”可以快速提取单元格中的数字、文本和其他内容。

3、在线工具

还有一些在线工具可以帮助提取Excel中的数字。这些工具通常支持文件上传和下载，适用于临时和小规模的数据处理任务。

综上所述，提取Excel中的数字有多种方法可供选择，具体选择哪种方法取决于您的实际需求和数据复杂度。无论是使用公式、VBA宏、文本到列功能、Power Query还是第三方工具，每种方法都有其独特的优势和适用场景。通过灵活运用这些方法，您可以高效地处理各种数据提取任务。