excel里一列怎么提取数字

在Excel中提取一列中的数字，可以通过使用函数、使用VBA宏、利用Power Query等方法来实现。以下将详细介绍如何使用这些方法来提取数字，并重点介绍其中的一种方法。

一、使用函数提取数字

1.1 使用公式组合

在Excel中，可以通过组合多种函数来提取一列中的数字。主要使用的函数包括MID、IF、ISNUMBER、SUMPRODUCT等。以下是一个详细的步骤：

创建辅助列：在原数据的旁边创建一个新的列，用于存储提取的数字。
使用公式提取数字：
- 假设原数据在A列，从A1开始。可以在B1单元格中输入以下公式：
```
=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)))/10)
```
- 这个公式通过逐字符检查A1单元格中的内容，提取其中的数字并组合成一个完整的数值。
向下填充公式：将B1单元格的公式向下填充，应用到整个数据范围。

1.2 使用TEXT函数组合

另一种方法是使用TEXTJOIN和MID函数的组合：

创建辅助列：同样地，在原数据的旁边创建一个新的列。
使用公式提取数字：
- 在B1单元格中输入以下公式：
```
=TEXTJOIN("",TRUE,IF(ISNUMBER(VALUE(MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1))),MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1),""))
```
- 此公式会提取A1单元格中的所有数字并将其组合成一个字符串。
向下填充公式：将B1单元格的公式向下填充，应用到整个数据范围。

二、使用VBA宏提取数字

2.1 编写VBA宏

使用VBA宏可以更加灵活地处理数据，以下是一个简单的VBA宏代码示例：

打开VBA编辑器：按Alt + F11打开VBA编辑器。
插入模块：在VBA编辑器中，点击Insert > Module，插入一个新的模块。

编写代码：

Sub ExtractNumbers()
    Dim rng As Range
    Dim cell As Range
    Dim i As Integer
    Dim num As String
    ' Set the range of cells to process
    Set rng = Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row)
    ' Loop through each cell in the range
    For Each cell In rng
        num = ""
        For i = 1 To Len(cell.Value)
            If IsNumeric(Mid(cell.Value, i, 1)) Then
                num = num & Mid(cell.Value, i, 1)
            End If
        Next i
        ' Output the extracted number to the adjacent cell
        cell.Offset(0, 1).Value = num
    Next cell
End Sub

运行宏：关闭VBA编辑器，返回Excel，按Alt + F8打开宏对话框，选择ExtractNumbers宏并运行。

2.2 调整代码适应需求

可以根据实际情况调整代码中的范围和输出位置。例如，可以将提取的数字输出到不同的列，或仅处理特定的单元格范围。

三、使用Power Query提取数字

3.1 导入数据到Power Query

选择数据范围：在Excel中选择要处理的数据范围。
加载到Power Query：
- 在Excel菜单中，点击数据 > 从表/范围，将数据加载到Power Query编辑器。

3.2 使用Power Query编辑数据

添加自定义列：
- 在Power Query编辑器中，点击添加列 > 自定义列。
编写M代码：
- 在自定义列对话框中，输入以下M代码：
```
Text.Combine(List.Select(Text.ToList([Column1]), each Value.Is(Value.FromText(_), type number)))
```
- 这个代码将提取Column1列中的数字并组合成一个字符串。
应用更改：点击确定，然后点击关闭并加载将数据返回到Excel。

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

4.1 安装并引用正则表达式库

打开VBA编辑器：按Alt + F11打开VBA编辑器。
引用正则表达式库：
- 在VBA编辑器中，点击工具 > 引用。
- 选择Microsoft VBScript Regular Expressions 5.5。

4.2 编写VBA宏使用正则表达式

插入模块：在VBA编辑器中，点击Insert > Module，插入一个新的模块。