您现在的位置是:主页 > 教程 >
Excel提取数字实现教程,三种方法非常简单
发布时间:2023-10-29 14:05:31所属栏目:教程 已帮助人编辑作者:Excel自学教程
日常工作中,经常会遇到数据较乱的表格,如何清洗这些数据,难免会让人头疼。
下图中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单元格即可。
方法三:万能技术VBA
在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
Next
Cells(a, 3) = i
Next
MsgBox "已完成"
End Sub
代码主要运用到正则表达式,【/d+】表示匹配一个或者多个数字,它会将匹配到的数字提取出来,在赋值到对应的单元格,VBA的好处在于代码可反复利用,下次遇到类似的需求,简单修改下代码即可。
以上就是excel自学教程为您提供Excel提取数字实现教程,三种方法非常简单的解读,本文章链接: http://www.5enet.cn/Excel_jiaocheng/77385.html 欢迎分享转载,更多相关资讯请前往教程
相关文章
企业IT外包服务
Excel VBA MsgBox用法介绍
excel 填充颜色的两种使用,纯色和渐变色填充。以及excel填充颜色的快捷操作
excel批量删除超链接
如何利用Excel的 MAX函数 计算最大值
excel 不能自动求和的6大原因,并同时针对不同原因给出不同的解决方法来处理
excel 神奇的函数 公式结果就是公式本身
excel自动换行显示不全怎么办
Subtotal函数的使用方法
excel iseven函数判断偶数应用
怎么锁定 Excel 表格
excel2013中数据透视表添加字段、自定义字段名称、编辑和删除字段
excel中利用IFERROR函数屏蔽Vlookup的匹配错误
Excel图表的层次[瞒天过海]
excel插入图片的基本方法,以及插入图片之后的编辑对齐,和工作表保护状态插
excel 向左查询数据还用vlookup就out了,这两个函数让你的效率提升80%
扫码关注
- 专注IT行业,10年IT行业经验