怎么从excel表格的文字里摘出数字

在Excel表格中摘出文字里的数字，可以使用公式、函数、VBA宏等方法。最常见的办法是使用Excel的函数，如MID、SEARCH、LEN、LEFT、RIGHT、ISNUMBER等；也可以使用自定义VBA宏来实现更复杂的操作。使用函数简单、方便，VBA宏则更灵活和强大。接下来，将详细描述如何使用这些方法来摘出Excel表格中的数字。

一、使用Excel函数摘出数字

1、使用MID和SEARCH函数

MID和SEARCH函数组合可以有效地从字符串中提取出数字。假设A1单元格包含字符串“abc123def”，我们可以使用以下步骤：

在B1单元格输入公式： =MID(A1,SEARCH("1",A1),LEN(A1))
该公式会从字符串中第一个数字开始提取，直到字符串末尾。

2、使用LEN、MID、ISNUMBER和ROW函数

为了提取字符串中的所有数字，可以使用更复杂的公式：

在B1单元格输入公式： =TEXTJOIN("",TRUE,IF(ISNUMBER(MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1)*1),MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1),""))
按Ctrl+Shift+Enter以数组公式的形式输入。

这个公式会遍历字符串的每一个字符，并将所有数字字符连接在一起，最终提取出所有数字。

3、使用LEFT和RIGHT函数

LEFT和RIGHT函数主要用于从字符串的左边或右边提取固定长度的字符。例如：

在B1单元格输入公式： =RIGHT(A1,3)
该公式会从字符串的右边提取3个字符。

二、使用VBA宏提取数字

VBA宏可以实现更复杂的提取操作，尤其适用于批量处理大量数据。

1、编写简单的VBA宏

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

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

保存并关闭VBA编辑器。
在Excel中使用自定义函数： =ExtractNumbers(A1)

2、批量处理数据

如果需要对整个列的数据进行批量处理，可以使用以下宏：

Sub ExtractNumbersInColumn()
    Dim Cell As Range
    For Each Cell In Selection
        Cell.Offset(0, 1).Value = ExtractNumbers(Cell)
    Next Cell
End Sub

选择需要处理的列，然后运行这个宏即可在旁边的列显示提取的数字。

三、使用Power Query

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

选择数据范围，点击“数据” -> “从表格/范围”。
在Power Query编辑器中，选择需要处理的列。
在“添加列”选项卡中，选择“自定义列”。
输入自定义列公式： Text.Select([Column1], {"0".."9"})
点击“确定”并应用更改。

四、使用正则表达式（Regex）

正则表达式是处理字符串的强大工具，虽然Excel本身不直接支持正则表达式，但可以通过VBA实现。

1、编写VBA宏使用正则表达式

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

Function RegExExtractNumbers(Cell As Range) As String
    Dim RegEx As Object
    Set RegEx = CreateObject("VBScript.RegExp")
    Dim Matches As Object
    RegEx.Pattern = "d+"
    RegEx.Global = True
    Set Matches = RegEx.Execute(Cell.Value)
    If Matches.Count > 0 Then
        RegExExtractNumbers = Matches(0).Value
    Else
        RegExExtractNumbers = ""
    End If
End Function

保存并关闭VBA编辑器。
在Excel中使用自定义函数： =RegExExtractNumbers(A1)

五、总结

摘出Excel表格中的数字可以使用不同的方法，根据具体情况选择最合适的方式。函数法简单直接，适用于处理少量数据，VBA宏和Power Query则适用于复杂和大规模数据处理。无论是简单的公式还是复杂的VBA宏，都可以帮助我们高效地从Excel表格中摘出所需的数字。选择合适的方法不仅能提高工作效率，还能减少出错率，为数据处理提供有力支持。