Excel怎么只提取表格中的数字？
发布时间：2023-08-25 16:15:59
Excel怎么只提取表格中的数字？字在前，数字在后面的情形。可以用MID,min, find三个函数来实现提取里面的数字，具体方法请看下文，需要的朋友可以参考下
Excel 提取数字的方法
1、汉字在前，数字在后面的情形。可以用MID,min, find三个函数来实现提取里面的数字。如图：在B2输入“=MID(A1,MIN(FIND({0,1,2,3,4,5,6,7,8,9},A1&"0123456789")),20)”
2 、把单元格里面所有的数字都提出来。可以使用宏。先打开VBA编辑器。工具——宏——visual basic 编辑器
3、在编辑器里点击插入——模块。在模块那里输入如下代码：
复制内容到剪贴板
Function zzsz(xStr As String) As StringDim i As IntegerFor i = 1 To Len(xStr)If IsNumeric(Mid(xStr, i, 1)) Then zzsz = zzsz & Mid(xStr, i, 1)NextEnd Function
4、回到工作表，在B2单元格那里输入“=zzsz(A2)”。就可以用VBA把A2单元格里所有的数字都提取出来了，如图所示。
5、指定从第几个数组提取开始。也就是说在不连续的那些数字中，从第几次出现的数组开始提取。同样在模块那里输入如下代码：
复制内容到剪贴板
Function GetNums(rCell As Range, num As Integer) As StringDim Arr1() As String, Arr2() As StringDim chr As String, Str As StringDim i As Integer, j As IntegerOn Error GoTo line1
Str = rCell.TextFor i = 1 To Len(Str)chr = Mid(Str, i, 1)If (Asc(chr) < 48 Or Asc(chr) > 57) ThenStr = Replace(Str, chr, " ")End IfNext
Arr1 = Split(Trim(Str))ReDim Arr2(UBound(Arr1))For i = 0 To UBound(Arr1)If Arr1(i) <> "" ThenArr2(j) = Arr1(i)j = j + 1End IfNext
GetNums = IIf(num <= j, Arr2(num - 1), "")line1:End Function
6、在回到单元格那里输入“=Getnums(A3,2)”就可以提取第几次出现的数组了，如图所示。
7、以上是我平时和大家学习得的经验和大家分享，希望对大家有帮助。如果对你有用处的话，请投我一票以示鼓励。
0
投稿猜你喜欢
很多用户会用自己的电脑打游戏，在win10系统中，有一个游戏模式可以设置，设置好后可以增加您的游戏体验。下面就跟小编一起来操作一下如何开启吧- 问题：怎样快速的返回当前的日期与星期数呢？方法：TODAY函数Step：在编辑栏中输入公式：=TEXT(TODAY(),"yyy-
- 很多用户都会给自己的win10电脑设置一个密码，但有些朋友却碰到了开机输入密码的时候出现了转圈的情况，那么遇到这种情况要怎么解决呢？下面就和
- Win10控制面板怎么放到桌面？在我们平常的电脑设置中，很多用户都会使用到控制面板，为了平常操作的方便，就会有用户在直接在桌面上添加控制面板
- 在word文档中设置文字的格式，有时候需要使用word内部提供的设置好的格式，就比如设置文字的不同级别的标题，就需要使用各种标题的样式!一般
- 最近有用户反映，win7系统安装Dreamweaver CS6提示错误代码0xc000007b，这是怎么回事呢？这种情况怎么办呢？本文将提供
- 我们在传输文件的时候经常会将文件进行加密压缩，但是对于一个加密了很长时间的文件容易忘记密码，这个时候我们该怎么办呢？有什么办法破解这个压缩密
- 最近有Win10用户表示，想要通过应用商店下载应用时，却遇到了应用商店无法弹出登录界面的情况，那么遇到这种情况应该如何解决呢？下面小编就为大
- 最近有朋友反映下载了win10镜像文件，但是不知道怎么安装。我该怎么办？实际上们可以用硬盘安装，用硬盘安装。今天，小编带来了详细的解决方案。
- 在WPS演示文稿中插入WPS图表数据，听起来有些难度哦，其实不难。打开演示文稿，随后插入对象选择WPS图表。以下是小编为您带来的关于在WPS
- word怎么实现一秒钟计算加减乘除？word中的加减乘除想要快速计算出来，该怎么计算呢？下面我们就来看看word快速计算加减乘除的教程，需要
- Win10 Mobile 10549预览版怎么升级？很多朋友发现，自己的手机不能升级到win10 10549，那是因为该系统版本只能从WP8
- excel标签无法复制移动，每次都提示\a_ke8名称已存在该怎么办？出现这种情况一般都是在名称管理器里有同名名称引起的，删除掉就可以了，下
- 在PowerPoint 也就是PPT 中，我们可以根据自己的实际使用需求，插入一定的对象，比如Word文档，Excel表格，WPS文档等等。
- 迅捷CAD编辑器是一款适合大家绘制图纸的CAD编辑器，那你知道迅捷CAD编辑器怎么绘制弧形文本的吗？接下来我们一起往下看看迅捷CAD编辑器绘
- 0x000000f4蓝屏代码是一个关于内存错误的蓝屏代码，一般的问题就是内存条松动导致的，或者是驱动软件更新也能解决，想要解决的用户快点来看
- 在word中制作和打印信封的方法？信件，是20世纪人们之间通讯的重要工具之一。现在虽然大家都很少写信了，但是在一些商务场合，信件仍然有其不可
- 笔记本连接WIFI现在是一件经常遇到的事情，常用，频繁。但是总有那么一丢丢问题，不能顺利连接，耽误事情。为此今天我总结遇到过的问题，与大家一
- 经常用到系统自带的“记事本”，而要打开记事本就比较繁琐，如果能够把“记事本”添加到右键菜单中，那么只需点击右键就可以显示“记事本”选项，点击
- 在幻灯片中，添加声音，有两种途径，即，插入声音和嵌入声音。插入/链接声音(文件)、删除已插入/链接声音(文件)的方法较简单直观。嵌入声音文件
