在excel中怎么把数字分离出来的

在Excel中，要将数字从字符串中分离出来，可以使用各种公式、VBA代码、或Power Query。其中，利用公式的方式最为常见且便捷，因为不需要编写复杂的代码。接下来，我将详细介绍如何使用公式来完成这一任务。

一、使用公式分离数字

1、使用MID与FIND函数

在Excel中，可以结合MID和FIND函数来分离出数字。假设你在A列有一串混合了字母和数字的字符串，你可以在B列中输入以下公式：

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

这个公式的核心思想是逐一检查字符串中的每个字符，如果是数字则保留，不是数字则用空字符串代替。

2、使用TEXTJOIN函数

对于Excel 2016及更高版本，可以进一步优化公式，使用TEXTJOIN函数将分离出的数字连接成一个完整的字符串：

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

这段公式将所有的数字字符连接成一个连续的数字字符串。

3、使用数组公式

另一种方法是使用数组公式来提取数字。以下是一个数组公式的示例：

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

输入完公式后，按Ctrl+Shift+Enter组合键来确认输入，这将使它成为一个数组公式。

二、VBA代码分离数字

如果你需要更高效或更灵活的解决方案，可以编写VBA代码来分离数字。以下是一个简单的VBA示例：

1、打开VBA编辑器

按下Alt + F11打开VBA编辑器，然后插入一个新的模块。

2、编写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

3、使用VBA函数

返回Excel工作表，在B列中输入以下公式来调用VBA函数：

=ExtractNumbers(A1)

这个自定义函数会从A1单元格中提取出所有的数字。

三、使用Power Query分离数字

Power Query是Excel中的一个强大工具，可以用来分离数字。以下是使用Power Query的步骤：

1、加载数据到Power Query

选择你的数据范围，然后点击“数据”选项卡，选择“从表/范围”以加载数据到Power Query编辑器。

2、添加自定义列

在Power Query编辑器中，点击“添加列”，然后选择“自定义列”。

3、编写M代码

在弹出的对话框中输入以下M代码：

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

将“Column1”替换为你的数据列名称，这段代码会提取列中所有的数字字符。

4、加载数据回Excel

完成编辑后，点击“关闭并加载”按钮，将数据加载回Excel工作表。

四、利用第三方工具或插件

除了上述方法，还可以使用一些第三方工具或插件来实现数字分离。这些工具通常提供更丰富的功能和更高的效率。

1、Kutools for Excel

Kutools是一个强大的Excel插件，提供了大量实用功能，包括提取数字的功能。

2、使用正则表达式工具

一些高级用户可能会选择使用正则表达式工具来分离数字，这通常需要额外的插件支持，比如VBA中的RegExp对象。

结论

在Excel中分离数字的方法有很多，具体选择哪种方法取决于你的实际需求和Excel版本。公式方法简单易用，VBA代码灵活高效，Power Query功能强大，而第三方工具则提供了更多的选择。根据自己的需求和掌握的技能，选择合适的方法可以大大提高工作效率。