excel怎么取字符串中数字

在Excel中提取字符串中的数字，可以使用公式、函数或VBA宏来完成。 常见的方法包括使用 MID函数、LEN函数、TEXT函数 等。以下是具体的详细描述：

一、使用Excel公式提取数字

使用MID和FIND函数

MID函数可以从字符串的指定位置开始，提取指定长度的字符。FIND函数用于查找字符在字符串中的位置。通过组合使用这两个函数，可以提取出字符串中的数字。

公式示例：
```
=MID(A1, FIND("1", A1, 1), LEN(A1) - FIND("1", A1, 1) + 1)
```
解释：
- FIND("1", A1, 1)：查找字符串中第一个出现的数字1的位置。
- LEN(A1) - FIND("1", A1, 1) + 1：计算从第一个数字到字符串末尾的长度。
- MID(A1, FIND("1", A1, 1), LEN(A1) - FIND("1", A1, 1) + 1)：从第一个数字的位置开始，提取到字符串末尾的所有字符。
使用TEXT函数和数组公式

通过TEXT函数和数组公式，可以实现更复杂的字符提取操作。

公式示例：
```
=TEXTJOIN("", TRUE, IF(ISNUMBER(MID(A1, ROW(INDIRECT("1:"&LEN(A1))), 1)*1), MID(A1, ROW(INDIRECT("1:"&LEN(A1))), 1), ""))
```
解释：
- ROW(INDIRECT("1:"&LEN(A1)))：生成从1到字符串长度的数组。
- MID(A1, ROW(INDIRECT("1:"&LEN(A1))), 1)：提取字符串中每个位置的字符。
- ISNUMBER(MID(A1, ROW(INDIRECT("1:"&LEN(A1))), 1)*1)：检查提取的字符是否为数字。
- TEXTJOIN("", TRUE, ...)：将所有提取的数字字符连接成一个字符串。

二、使用Excel函数提取数字

使用自定义函数

自定义函数可以通过VBA（Visual Basic for Applications）来实现。以下是一个示例代码，用于提取字符串中的数字：

VBA代码示例：
```
Function ExtractNumbers(str As String) As String
    Dim i As Integer
    Dim result As String
    result = ""
    For i = 1 To Len(str)
        If IsNumeric(Mid(str, i, 1)) Then
            result = result & Mid(str, i, 1)
        End If
    Next i
    ExtractNumbers = result
End Function
```
使用方法：
- 打开Excel，按 Alt + F11 打开VBA编辑器。
- 插入一个新模块，将上述代码粘贴到模块中。
- 返回Excel，在单元格中使用自定义函数 =ExtractNumbers(A1) 提取字符串中的数字。

三、使用Excel宏提取数字

编写VBA宏

VBA宏可以自动执行复杂的操作，以下是一个示例宏，用于提取选定单元格中的数字：

VBA代码示例：

Sub ExtractNumbersMacro()
    Dim cell As Range
    Dim i As Integer
    Dim result As String
    For Each cell In Selection
        result = ""
        For i = 1 To Len(cell.Value)
            If IsNumeric(Mid(cell.Value, i, 1)) Then
                result = result & Mid(cell.Value, i, 1)
            End If
        Next i
        cell.Offset(0, 1).Value = result
    Next cell
End Sub

使用方法：

打开Excel，按 Alt + F11 打开VBA编辑器。
插入一个新模块，将上述代码粘贴到模块中。
返回Excel，选择要提取数字的单元格区域。
按 Alt + F8，选择 ExtractNumbersMacro 并运行宏。

四、使用Power Query提取数字

Power Query

Power Query是Excel的强大工具，可以用于数据清洗和转换。通过Power Query，可以轻松提取字符串中的数字。

步骤：
- 选择包含字符串的单元格，点击 数据 -> 从表/范围。
- 在Power Query编辑器中，添加自定义列，使用以下M语言代码提取数字：
```
Text.Combine(List.Transform(Text.ToList([Column1]), each if Number.FromText(_) <> null then _ else ""))
```
- 将自定义列转换为文本格式，关闭并加载数据。

五、综合应用

结合多种方法

在实际应用中，可以结合多种方法来提取字符串中的数字。例如，可以先使用公式进行初步处理，然后使用VBA宏或Power Query进行进一步的清洗和转换。
处理复杂字符串

对于包含复杂字符的字符串，可以使用正则表达式进行提取。虽然Excel本身不支持正则表达式，但可以通过VBA宏来实现：

VBA代码示例：
```
Function ExtractNumbersWithRegex(str As String) As String
    Dim regex As Object
    Set regex = CreateObject("VBScript.RegExp")
    regex.Global = True
    regex.Pattern = "d+"
    ExtractNumbersWithRegex = regex.Execute(str)(0)
End Function
```
使用方法：
- 按 Alt + F11 打开VBA编辑器，插入新模块，将代码粘贴到模块中。
- 返回Excel，使用自定义函数 =ExtractNumbersWithRegex(A1) 提取字符串中的数字。

六、优化和性能考虑

优化公式和函数

对于大数据量的处理，优化公式和函数的性能非常重要。尽量避免使用复杂的数组公式，可以通过分步处理来优化性能。
使用VBA宏

VBA宏在处理大数据量时具有显著的优势，可以大幅提升处理速度。通过优化VBA代码，如减少不必要的循环和操作，可以进一步提高性能。
Power Query的优势

Power Query在处理大数据集和复杂数据转换时具有明显优势。通过使用Power Query，可以轻松应对各种复杂的数据清洗和转换任务。

七、实际案例分析

提取电话号码

在实际工作中，提取电话号码是常见需求。可以使用上述方法提取字符串中的数字，然后进行进一步处理，如格式化为标准的电话号码格式。
提取订单编号

在处理订单数据时，通常需要从字符串中提取订单编号。可以结合使用公式、函数和VBA宏，提取和验证订单编号。
提取日期和时间

在处理日志数据时，通常需要从字符串中提取日期和时间。可以使用正则表达式或Power Query，提取并转换为标准的日期和时间格式。

八、总结

在Excel中提取字符串中的数字是一个常见的需求，通过使用公式、函数、VBA宏和Power Query，可以轻松实现这一目标。了解和掌握这些方法，可以大幅提升工作效率和数据处理能力。具体方法的选择取决于数据的复杂性和处理需求，结合多种方法，可以应对各种复杂的数据提取任务。