欧非资源网：安全、免费、专业放心的资源下载站！ 最新软件|软件分类

您的位置：欧非资源网 > Excel专区 > Excel函数 > Excel提取数字实现教程，三种方法非常简单

Excel提取数字实现教程，三种方法非常简单 时间：2022-02-28 12:41作者：admin来源：未知人气：3641我要评论(0)

日常工作中，经常会遇到数据较乱的表格，如何清洗这些数据，难免会让人头疼。

下图中B列为员工出差手填费用，规则较乱，没规律可循，那么如何从中提取金额呢？

今天介绍三种小技巧从文本中提取数字，总有一种适合你哦~

方法一：万金油快捷键Ctrl+E

Ctrl+E快捷键组合可以说是Excel中最强组合之一，可以解决大量有规律可循的数据，直接在C2单元格内输入B2单元格内的数字“118”，选中C2:C8，同时按下【Ctrl】+【E】键，完成快速填充，可以发现，文本中的数据已经被提取出来！

方法二：Word+Excel双剑合璧

第一步，先将B列数据复制到Word中，粘贴方式为【链接与使用目标格式】

第二步，同时按下【Ctrl】+【H】键，弹出替换框，在查找内容框中输入："[!0-9]"，点击【更多】按钮，勾选【使用通配符】，点击【全部替换】，即可将文本中的非数字全部替换为空。

通配符[0-9]表示0-9之间的数字，前面"!"表示非的意思，非0-9，非数字全部被替换，只会留下数字，这是再将数字复制回Excel单元格即可。

在Excel中，我们也可以利用正则表达式去提取文本中的数字。

打开visual basic，新建一个模块，插入代码，点击运行，可以发现，数字已经被提取出来。

具体代码展示如下：

Sub 获取座位数()

Dim obj As Object

Dim a As Integer, i As Integer, j As Object, objs As Object

re = "d+"

Set obj = CreateObject("VBScript.RegExp")

With obj

.Global = True

.Pattern = re

End With

For a = 2 To Cells(Rows.Count, 1).End(xlUp).Row

Set objs = obj.Execute(Cells(a, 2))

i = 0

For Each j In objs

i = j + i

Cells(a, 3) = i

MsgBox "已完成"

End Sub

代码主要运用到正则表达式，【d+】表示匹配一个或者多个数字，它会将匹配到的数字提取出来，在赋值到对应的单元格，VBA的好处在于代码可反复利用，下次遇到类似的需求，简单修改下代码即可。

文章评论

查看所有0条评论>>

分类索引