Excel中如何从公司名称提取数字？提取数字的方法有哪些？

作者：佚名|分类：EXCEL|浏览：78|发布时间：2025-03-17 18:31:24

Excel中从公司名称提取数字的方法详解

在Excel中，经常需要从大量的文本数据中提取出特定的数字信息，例如公司名称中的注册号、电话号码等。以下是一些常用的方法来从公司名称中提取数字。

一、使用Excel的文本函数

1. 使用“文本分列”功能

步骤：

（1）选中包含公司名称的列。

（2）点击“数据”选项卡，选择“文本分列”。

（3）在弹出的“文本分列向导”中选择“分隔符号”。

（4）在“分隔符号”栏中勾选“其他”，然后输入公司名称中的分隔符号（如空格、逗号等）。

（5）点击“完成”，即可将公司名称中的数字与其他文本分开。

2. 使用“查找”和“替换”功能

步骤：

（1）选中包含公司名称的单元格。

（2）点击“开始”选项卡，选择“查找和选择”中的“查找”。

（3）在“查找内容”栏中输入“[0-9]”，勾选“使用通配符”。

（4）点击“查找下一个”，即可找到公司名称中的数字。

（5）选中找到的数字，复制粘贴到新的单元格中。

3. 使用“正则表达式”功能

步骤：

（1）选中包含公司名称的单元格。

（2）点击“开始”选项卡，选择“查找和选择”中的“查找”。

（3）在“查找内容”栏中输入正则表达式“[0-9]+”，勾选“使用通配符”。

（4）点击“查找下一个”，即可找到公司名称中的数字。

（5）选中找到的数字，复制粘贴到新的单元格中。

二、使用VBA宏

1. 使用VBA提取数字

步骤：

（1）按下“Alt + F11”键，打开VBA编辑器。

（2）在“插入”菜单中选择“模块”，新建一个模块。

（3）在模块中输入以下代码：

```vba

Sub ExtractNumbers()

Dim cell As Range

Dim numbers As String

Dim lastRow As Long

Set cell = ActiveCell

lastRow = Cells(Rows.Count, cell.Column).End(xlUp).Row

For Each cell In Range(cell, Cells(lastRow, cell.Column))

numbers = Mid(cell.Value, InStr(1, cell.Value, "[0-9]"), Len(cell.Value))

cell.Offset(0, 1).Value = numbers

Next cell

End Sub

```

（4）关闭VBA编辑器，回到Excel界面。

（5）按下“Alt + F8”键，选择“ExtractNumbers”宏，点击“运行”。

2. 使用VBA提取特定格式的数字

步骤：