excel有中文和数字怎么提取数字

在Excel中提取包含中文和数字的单元格中的数字，可以使用多种方法，包括公式、VBA脚本和Power Query等。其中，使用公式是最方便且不需要编程知识的方法，使用VBA脚本则提供了更强的灵活性和控制力，而Power Query适用于处理大量数据和复杂的清理任务。下面将详细介绍这些方法。

一、使用公式提取数字

在Excel中，使用公式提取数字是最简单的方法之一。以下是几种常见的公式：

1.1 使用数组公式

数组公式可以逐个检查每个字符是否为数字，并将这些数字拼接起来。以下是一个示例公式：

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

在输入这个公式时，按下 Ctrl + Shift + Enter 以便将其作为数组公式处理。

1.2 使用SUMPRODUCT函数

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, 1)*10^(ROW(INDIRECT("1:"&LEN(A1)))-1))

这个公式的原理是使用MID、ROW、LARGE和INDEX函数来遍历每个字符，并检查是否为数字，然后将这些数字组合起来。

二、使用VBA脚本提取数字

VBA（Visual Basic for Applications）是Excel中的一种编程语言，使用VBA可以编写自定义函数，以便更灵活地提取数字。

2.1 编写自定义函数

以下是一个示例VBA代码，用于创建一个自定义函数 ExtractNumbers 来提取数字：

Function ExtractNumbers(Cell As Range) As String
    Dim Char As String
    Dim i As Integer
    Dim Result As String
    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 = Result
End Function

要使用这个函数，首先需要打开Excel的VBA编辑器（按 Alt + F11），插入一个新模块，然后将上述代码粘贴进去。保存并关闭VBA编辑器后，可以在Excel中使用该函数，例如 =ExtractNumbers(A1)。

三、使用Power Query提取数字

Power Query是Excel中的一个功能强大的数据处理工具，适用于处理大量数据和复杂的清理任务。

3.1 打开Power Query编辑器

选择包含数据的单元格区域。
点击“数据”选项卡，然后选择“从表格/范围”。
在弹出的“创建表格”对话框中，确保选择了正确的范围，然后点击“确定”。

3.2 处理数据

在Power Query编辑器中，可以使用以下步骤提取数字：

添加一个自定义列：点击“添加列”选项卡，然后选择“自定义列”。
在弹出的对话框中，输入列名称，并使用以下M代码提取数字：

Text.Combine(List.Select(Text.ToList([ColumnName]), each Value.Is(Value.FromText(_), Number.Type)))

将 ColumnName 替换为包含数据的列的名称。

点击“确定”后，Power Query将创建一个新的列，其中仅包含从原始数据中提取的数字。
关闭并加载数据：点击“主页”选项卡，然后选择“关闭并加载”。

四、总结

在Excel中提取包含中文和数字的单元格中的数字，可以通过公式、VBA脚本和Power Query等多种方法实现。公式方法适用于简单的任务，VBA脚本提供了更强的灵活性，而Power Query适用于处理大量数据和复杂的清理任务。根据具体需求和数据量，选择合适的方法可以提高工作效率。