excel表格有数字有文字怎么取数字出来

在Excel表格中提取数字的方法有多种，包括使用函数、VBA代码和Power Query等。 其中最常用的方法是通过Excel函数，如MID、SUM、LEN、TEXTJOIN等组合使用。利用函数可以在不需要编写代码的情况下快速获取数字。例如，可以使用MID函数提取特定位置的字符，再通过SUM函数累加得到所需的数字。以下将详细描述几种常用方法，以及具体的操作步骤和应用场景。

一、使用Excel函数提取数字

1、MID函数和SUM函数组合使用

首先，可以使用MID函数来逐个提取字符串中的字符，然后利用SUM函数将这些字符转换为数字并累加。

=MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1)

上述公式会逐个提取A1单元格中的字符。然后，可以使用SUM函数将这些字符累加。

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

2、TEXTJOIN和IF函数组合使用

TEXTJOIN函数可以将多个文本连接在一起，而IF函数可以用来判断是否为数字。

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

这个公式会在A1单元格中提取所有数字，并将它们连接成一个字符串。

二、使用VBA代码提取数字

1、编写VBA宏

如果需要处理大量数据，或公式过于复杂，可以通过VBA宏来实现。VBA代码更加灵活，也可以处理更复杂的情况。

Function ExtractNumbers(Cell As Range) As String

    Dim i As Integer
    Dim str As String
    Dim temp As String
    temp = Cell.Value
    For i = 1 To Len(temp)
        If IsNumeric(Mid(temp, i, 1)) Then
            str = str & Mid(temp, i, 1)
        End If
    Next i
    ExtractNumbers = str
End Function

将上述代码粘贴到VBA编辑器中，并保存。然后在Excel中调用自定义函数ExtractNumbers。

2、使用VBA代码批量处理

还可以编写VBA宏来批量处理整个工作表中的数据。

Sub ExtractNumbersFromSheet()

    Dim ws As Worksheet
    Dim cell As Range
    Set ws = ThisWorkbook.Sheets("Sheet1")
    For Each cell In ws.UsedRange
        If IsNumeric(cell.Value) = False Then
            cell.Value = ExtractNumbers(cell)
        End If
    Next cell
End Sub

这个宏会遍历整个工作表，并提取每个单元格中的数字。

三、使用Power Query提取数字

1、导入数据到Power Query

Power Query是Excel中的一项强大功能，可以用来处理和转换数据。首先，将数据导入到Power Query中。

1. 选择数据区域。
2. 点击“数据”选项卡。
3. 选择“从表/范围”。

2、应用自定义列

在Power Query编辑器中，可以添加一个自定义列来提取数字。

1. 点击“添加列”。
2. 选择“自定义列”。
3. 输入以下公式：

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

这个公式会提取每个单元格中的数字，并生成一个新列。

3、加载数据到工作表

完成数据提取后，可以将结果加载回Excel工作表中。

1. 点击“关闭并加载”。
2. 选择“关闭并加载到”。
3. 选择目标位置。

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

1、使用VBA正则表达式

正则表达式是一种强大的文本匹配工具，可以用来提取复杂模式的字符串。可以在VBA中使用正则表达式来提取数字。

Function ExtractNumbersWithRegex(Cell As Range) As String

    Dim regEx As Object
    Dim matches As Object
    Dim match As Variant
    Set regEx = CreateObject("VBScript.RegExp")
    regEx.Global = True
    regEx.IgnoreCase = True
    regEx.Pattern = "d+"
    Set matches = regEx.Execute(Cell.Value)
    For Each match In matches
        ExtractNumbersWithRegex = ExtractNumbersWithRegex & match.Value
    Next match
End Function

将上述代码粘贴到VBA编辑器中，并保存。然后在Excel中调用自定义函数ExtractNumbersWithRegex。

2、批量处理数据

还可以编写VBA宏来批量处理整个工作表中的数据。

Sub ExtractNumbersFromSheetWithRegex()

    Dim ws As Worksheet
    Dim cell As Range
    Set ws = ThisWorkbook.Sheets("Sheet1")
    For Each cell In ws.UsedRange
        If IsNumeric(cell.Value) = False Then
            cell.Value = ExtractNumbersWithRegex(cell)
        End If
    Next cell
End Sub

这个宏会遍历整个工作表，并提取每个单元格中的数字。

五、总结

通过上述方法，可以在Excel表格中有效地提取数字。每种方法都有其优缺点，具体选择哪种方法取决于具体情况和个人习惯。使用Excel函数适合于简单场景和少量数据处理，VBA代码适合于复杂场景和批量处理，Power Query适合于数据转换和清洗，正则表达式适合于复杂模式匹配。希望通过本文的介绍，能够帮助您在工作中更高效地处理数据。

相关问答FAQs：

1. 如何从包含数字和文字的Excel表格中提取数字？

您可以使用Excel中的函数和筛选功能来提取数字：

• 使用函数提取数字：可以使用Excel中的文本函数（如MID、LEFT、RIGHT）和数值函数（如VALUE）来提取数字。根据具体情况，您可以根据数字的位置和格式选择合适的函数进行提取。
• 使用筛选功能提取数字：在Excel中，您可以使用筛选功能来筛选只包含数字的单元格，并将它们复制到新的区域。选择要筛选的数据范围，然后点击“数据”选项卡上的“筛选”按钮。在筛选的结果中，只保留包含数字的行或列。

2. 我如何在Excel中将包含数字和文字的单元格分开？

如果您想将包含数字和文字的单元格中的数字和文字分开，可以使用Excel中的文本函数和数值函数。

• 使用文本函数：例如，您可以使用MID函数提取数字部分，使用LEFT或RIGHT函数提取文字部分。
• 使用数值函数：例如，如果您只想提取数字部分，可以使用VALUE函数将包含数字和文字的单元格转换为纯数字。

3. 如何在Excel中提取包含数字和文字的单元格中的最大值或最小值？

要从包含数字和文字的单元格中提取最大值或最小值，您可以使用Excel中的数组函数MAX和MIN。

• 将包含数字和文字的单元格范围作为数组参数传递给MAX或MIN函数。
• Excel将自动忽略文字，并仅计算数字的最大值或最小值。

请注意，如果包含文字的单元格无法转换为数字，将返回错误值。在使用MAX或MIN函数之前，确保在需要的情况下将文本转换为数字。