拍案叫绝的VBA MID函数用法

看到这个标题，有的同学肯定认为，这篇博客就是一个“标题党”，MID函数可以说是VBA入门级别的函数，但凡学习过几天的小白用户都会用，那么各位客官不要着急，我说说你听听，如果大家都知道这个用法，只能说明我孤陋寡闻了，如果大家觉得这是个新奇用法，那就烦请大家点个赞吧！

实例需求：将一个字符串（长度不定）进行转换，规则为倒数第3个字符和倒数第1个字符互换位置，例如：字符串为12345，转换结果为12543。

这个需求并不复杂，只有会使用基本的字符串处理函数，就可以实现，参考代码如下。

Sub demo1()txt = "12345"new_txt = Left(txt, Len(txt) - 3) & _Right(txt, 1) & _Mid(txt, Len(txt) - 1, 1) & _Mid(txt, Len(txt) - 2, 1)Debug.Print ("原字符串：" & txt & vbNewLine & "新字符串：" & new_txt)
End Sub

【代码解析】
第3行代码使用Left函数提取除了尾部3个字符之外的字符串。
第4行代码使用Right函数提取最后一个字符。
第5行代码使用Mid函数提取倒数第2个字符。
第6行代码使用Mid函数提取倒数第3个字符。
第7行代码输出字符串。

这个常规思路实现代码无需多讲，接下来看看神奇的代码，由ExcelHome的ggmmlol提供。

实例代码。

Sub demo2()txt = "12345"Debug.Print ("原字符串：" & txt)Mid(txt, Len(txt) - 2, 3) = VBA.StrReverse(Right(txt, 3))Debug.Print ("新字符串：" & txt)
End Sub

【代码解析】
核心代码在于第4行，玩了10+年VBA，第一次看到Mid函数可以用于等号左侧，太神奇！
第4行的整体实现思路也很赞，调用StrReverse函数，一次性实现了字符换位。

既然Mid函数可以用于等号左侧，那么它的兄弟Left和Right函数是否可以呢，试了一下都不行。

再来测试一下这个用法是否可以实现任意长度字符替换。

Sub demo3()txt = "12345"Debug.Print ("原字符串：" & txt)Mid(txt, Len(txt) - 3, 4) = VBA.StrReverse(Right(txt, 3))Debug.Print ("新字符串：" & txt)
End Sub

输出结果如下：

原字符串：12345
新字符串：15435

并没有实现尾部4个字符替换为3个字符，而只是将倒数第4个至倒数第2个字符进行了替换，这样看来似乎是按照类似指针的方式，定位到了指定的保存位置，然后更新了存储的内容。

感兴趣的同学可以参阅微软官方文档

如果大家知道更多这种神奇的用法，请大家留言。

拍案叫绝的VBA MID函数用法相关推荐

MySQL MID()函数用法
在前面的 hack 语句中: 1 UPDATE table SET views = '1' WHERE id = -2441 OR (ORD(MID((SELECTIFNULL(CAST(FirstN ...
MySQL 笔记（五）replace ,mid函数用法
1.replace(st1,str2,str3) 在字串str1中,str2出现,就会用str3代替,即用str3来替换str1中的str2,. world(id,name,capital) ...
c语言find和mid函数的使用方法,excel中mid函数和find函数用法
mid 函数用法 MID既不从第一位开始截取,也不从最后一位开始截取,而是由用户自行指定开始的位置和字符的长度.因此,若用户指定从第一位开始,便和Left函数一样. 使用语法 MID(text,sta ...
案例：Excel 截取单元格中的json格式的数据（Find 函数和 Mid函数）
需求:提取下面Excel中B 单元格中的省份思路:截取字符串,但是省份的长度没有规律,比如河南省,比如黑龙江省,还有不是以省结尾的,比如直辖市:上海市,重庆市之类的. 寻找其他规律:我们发现单元格里 ...
mid函数怎么用mysql_MySQL MID()函数的用法详解（代码示例）-mysql教程-学派吧
在MySQL中,MID()函数返回从指定位置开始的子字符串. MID()和SUBSTR()都是SUBSTRING()的同义词. 基本语法是这样的: MID(str,pos,len) 这里,str是字符 ...
mysql中函数mid_MySQL MID()函数的用法详解（代码示例）
在MySQL中,MID()函数返回从指定位置开始的子字符串. MID()和SUBSTR()都是SUBSTRING()的同义词. 基本语法是这样的:MID(str,pos,len) 这里,str是字符串 ...
findmid函数c语言,excel find函数用法_excel中mid函数的用法教程详解
[www.gpsvo.com--管理学] Excel中经常需要使用到mid函数进行截取数据,mid函数具体该如何使用操作呢?下面是由小编分享的excel中mid函数的用法,以供大家阅读和学习. exc ...
计算机二级excel中mid的用法,mid函数在excel中的使用方法
导语:你还在为Excel中mid函数的使用方法而苦恼吗,今天小编教你Excel中mid函数的使用方法,让你告别Excel中mid函数的使用方法的烦恼. 工具/原料 Excelmid函数 1.mid函数 ...
asp 中 mid函数的用法
从字符串中返回指定数目的字符. Mid(string, start, length) 参数 string 字符串表达式,从中返回字符.如果 string 包含 Null,则返回 Null. Start ...

拍案叫绝的VBA MID函数用法

拍案叫绝的VBA MID函数用法相关推荐

最新文章

热门文章