excel提取字符串中数字、中文、英文字符的自定义函数
发布时间：2023-07-22 23:53:16
标签：函数,字母,数字,汉字,Excel函数
Function MyGet(Srg As String, Optional n As Integer = False)
‘n为1，取汉字，n为2，取字母，n为0，取数字
Dim i As Integer
Dim s, MyString As String
Dim Bol As Boolean
For i = 1 To Len(Srg)
s = Mid(Srg, i, 1)
If n = 1 Then
Bol = Asc(s) < 0 ‘文字
ElseIf n = 2 Then
Bol = s Like "[a-z,A-Z]" ‘字母
ElseIf n = 0 Then
Bol = s Like "#" ‘数字
End If
If Bol Then MyString = MyString & s
Next
MyGet = IIf(n = 1 Or n = 2, MyString, Val(MyString))
End Function
0
投稿猜你喜欢
在Ma电脑中终端程序是用户最常使用的程序，它可以直接对Mac电脑下指令，来完成一些无法完成的操作，但有些Mac电脑因为屏幕尺寸的问题，Mac- 在Win10系统电脑中，有些用户发现鼠标右键菜单有一个播放到设备的选项，如果不小心点到了，就会出现死机的问题，那么这是怎么回事呢？如何才能把
- 镜像劫持是计算机术语，是也一种将杀毒软件置于死地的技术，是病毒在注册表中新建的一个用以屏蔽杀毒软件的项，引诱用户点击相应的病毒文件启发文件关
- 在更新了微软推出的win101903版本后，发现电脑不能联网，笔记本也不能连wifi。小编这里特意为大家准备了一份详细的解决方案。希望可以帮
- 用WinRAR怎么把 * 伪装为MP3歌曲？小伙伴们都不知道可以把WinRAR当作加密软件来使用，在压缩文件的时候设置口令就可以达到保护数
- 家里用ADSL上网又没有路由的朋友.每次上网都要手动拨号太麻烦了.本教程教你设置自动拨号.以后再也不用手动拨号啦小白的电脑每天只要开机，就需
- 第一，NETWORKDAYS函数用法介绍NETWORKDAYS函数：是返回参数 start-data 和 end-data 之间完整的工作日
- 很多新手朋友们都不知道win7电源管理在哪里，即便找到了也不知道如何设置，下面有个不错图文教程，大家不妨参考下在控制面板里面切换到硬件与声音
- 相信有用过百度Hi的朋友都清楚，用户在这款软件中是可以自行设置或修改个人资料的。不过，许多刚刚开始接触百度Hi的朋友，其实并不清楚该如何修改
- 首先要知道这种箭头向下的标记符号叫软回车符号，专业术语叫手动换行符。其作用就是把一个整段的段落伪装成看着像多段的段落，但其实只是一段段落的排
- 虽然Excel不是专用的日历程序，但可以使用Excel创建和管理日历。你可以根据自己的喜好自定义各种日历模板，这比自己从头开始创建日历格式要
- 百度网盘是一款非常好用的云盘软件，用户可以将自己重要的文件保存到这款软件上，方便以后的日子里能够随时查看，那么百度网盘如何看之前的链接的呢？
- 鲸鱼阅读如何成为作者？鲸鱼阅读是一款专业的小说阅读软件，喜欢写小说的朋友要怎么成为作者，发布自己的小呢，下面就给大家分享具体步骤。目前鲸鱼阅
- U盘是用来存储重要文件与个人隐私文件的移动存储设备。为了保证文件的安全性，我们是可以通过加密来防止他人使用，但是却无法防止别人通过U盘拷贝自
- 在WPS表格的 利用 过程当中，小 同伴们 常常会做统计 阐发数据 处置，用到公式的次数 比力多， 可是却有 许多的小 同伴公式用的 其实不
- 使用win10操作系统时，如果升级后的win101903版会出现各种各样的问题，如电脑黑屏、蓝屏、花屏等，我觉得可能是因为我们的电脑兼容问题
- 最近，有不少网友问小编win10系统怎么添加儿童用户账户？今天小编就给大家详细介绍一下windows10添加儿童账户方法，确保您孩子的上网安
- 哔哩哔哩怎么查看订单？哔哩哔哩就是大家俗称的B站，里面有海量的影视供用户观看， 在哔哩哔哩中我们还可以购买物品，那么在哔哩哔哩中要怎么查看购
- 如电脑的任务栏可以自动隐，这样就为屏幕小一点的电脑提供了一些更大的屏幕空间。任务栏隐藏起来会给用户们带来更多方便，但是如果永远隐藏起来其实也
- miui12升级系统后，很多小米用户不知道怎么设置权限管理，权限管理的使用，今天小编就给大家带来了miui12权限管理的方法，需要的看一下吧
