VBA | 用自定义函数提取字符
先来看看一个表，也不知道哪个挨千刀的，在记录数据的时候搞成这个样子，都聚集在A1单元格。要将A1中的姓名和银行卡号分别提取出来，只需要一个自定义函数GetChar就可以轻松搞定。
C2单元格：=INDEX(GetChar($A$1,3),ROW(1:1))
D2单元格：=INDEX(GetChar($A$1,1),ROW(1:1))
银行卡号可以搞定，身份证号也很容易，还是这个挨千刀的记录员，把姓名和身份证号都登记在了A1单元格，有没有一种想动刀子的冲动？再次请出自定义函数GetChar：
C2单元格：=INDEX(GetChar($A$1,3),ROW(1:1))
D2单元格：=LEFT(INDEX(GetChar($A$1,1),ROW(1:1))&”X”,18)
那么这个神秘的GetChar到底是什么呢？
再和你赌5毛钱的，你现在的电脑里写完这个公式之后，你得到的结果是：#NAME?
它是来源于我独创的VBA自定义函数，在你的VBA模块中植入以下代码，来吧，和我一起轻松玩转提取字符：
Function GetChar(strChar As String, varType As Variant) ‘取值函数
Dim objRegExp As Object
Dim objMatch As Object
Dim strPattern As String
Dim arr
Set objRegExp =CreateObject(“vbscript.regexp”)
varType = LCase(varType)
Select Case varType
Case 1, “number”
strPattern =”-?\d+(\.\d+)?”
Case 2, “english”
strPattern = “[a-z]+”
Case 3, “chinese”
strPattern =”[\u4e00-\u9fa5]+”
End Select
With objRegExp
.Global = True
.IgnoreCase = True
.Pattern = strPattern
Set objMatch = .Execute(strChar)
End With
If objMatch.Count = 0 Then
GetChar = “”
Exit Function
End If
ReDim arr(0 To objMatch.Count – 1)
For Each cell In objMatch
arr(i) = objMatch(i)
i = i + 1
Next
GetChar = arr
Set objRegExp = Nothing
Set objMatch = Nothing
End Function
它的功能设计就是专门为提取字符的，语法为：GetChar(strChar,varType)：
varType参数为1时，提取：数字
varType参数为2时，提取：英文
varType参数为3时，提取：汉字
版权声明：本文内容由互联网用户自发贡献，该文观点仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，请发送邮件与管理举报，一经查实，本站将立刻删除。
相关推荐
只会VLOOKUP还不够，这些函数都挺牛
说起Excel中的数据查询，VLOOKUP可真是大名鼎鼎。这年头，做表格的人要是没听说VLOOKUP，喝酸奶都不好意思舔瓶盖。VLOOKUP函数果真所向披靡吗？今天就和大家一起说说Excel中的数据查询那些事儿。先说说VLOOKUP，作用嘛…word图文排版太丑怎么弄?4步操作让排版瞬间美观大气
不少小伙伴对word图文排版很是头疼，做出来的样式和别人一比简直太low了。那word图文排版太丑怎么办呢?有没什么技巧呢?今天，易老师来教大家一个小妙招，利用Word表格来对图片和文字进行控制排版，4步操作让排版瞬间美观大气。word图文…超级简单实用excel制作表格，手把手教学，适合无根基初学者
我拉网，专注办公模板设计Excel表格为最常用办公表格吗，其制作在如今工作生活中是最常用到的，重要性可以说和会识字写字一样。如果你一点不会excel制作，没关系，今天我们就以制作一个”成绩单”为实例进行学习。（成果如下图）本文主要针对：第一…Eecel实用技巧：根据合同日期，自动计算每月需确认收入
根据合同日期确认当月收入，这是工作中一个常见的问题。那么哪些收入是根据时间来确认呢?比如：技术服务费收入、维修服务收入等等年初或者年底收取1年的收入，根据合同日期分成若干月，每月做递延收入。根据合同日期计算当月需确认收入▼当然多数情况，合同…Excel表格里的零值太多怎么快速删除？
打开一份Excel表格，满屏密密麻麻的数据扑面而来，关键是数据里面还掺杂着不少零（0）值，瞬间让你眼花缭乱。如果可以把表格里的这些零值去掉，整个表格看起来必然会清晰不少。那如何快速去除表格里的零值？今天总结了几种快速去除表格零值的方法，看你…Excel技巧：两种方法快速批量提取所有工作表名称
一个工作簿里有很多工作表，想要提取当前工作簿的所有工作表名称，你会怎么操作?过去的我，可能会一个个手动去编辑提取，花了不少时间和精力去完成，工作这么努力，差点把自己感动哭了。可是，后来才知道，我那是白瞎折腾。原来，提取当前工作簿的所有工作表…计算单元格内指定的字符数
据说昨天Excel有两种bug发生率比较高：一种悲催是这样：更加悲催的是这样：哈哈哈，言归正传，今天和大家分享一个字符计算的公式实例。如下图所示，要统计A1单元格内包含几个“花”字？公式一：=LEN(A1)-LEN(SUBSTITUTE(A…Word技巧：用word快速完成表格数据排序
众所周知，Excel提供了强大的数据处理功能，数据排序更不在话下。不过，word作为Excel的兄弟，它的数据排序功能也不逊色于Excel。现在我们一起看看word是如何完成数据的排序。举栗子：如下图，为word文档中的一份表格。一、Wor…excel表格制作，常用的小技巧分享，必备知识
各位小伙伴们大家好！我是归一！今天我将带着大家了解一下Excel日期函数，并用它们来生成一张自定义的日期表，大家一起来学习吧~#制作表格#首先，我们先来了解一些这些函数的大致功能：下面，我们来看一下如何来利用这些函数在Excel中制作一个自…Excel小技巧：快速统计错误率
如下图所示，A列为题号，B列为正确答案，C-F列分别统计学生选择ABCD的答案数量，G列计算错误率。如何快速计算?1、输入错误率公式如下图所示，“错误率”单元格G2输入如下公式：=IFERROR(IF(B2=”A”,(1-C2/SUM(C2…
