文本比对-【271】–文本对比，提取相同字符

本期推送的问题素材来自微信公众号的平台留言：

如何提取两个文本中相同的字符。

————————————-

早在2016年，表妹就发布过一篇关于“文本数据对比”的教程（推送20）文本比对，里面介绍了对比两列数据是否相同的6种方法。不过本例中的文本数据对比却与以往不同，两列数据并不是“不同”与“相同”的关系，而是“部分字符相同”的关系，因此需要使用其他方法来解决，这个方法就是VBA。下面开始讲解。

~~~~~~相同字符的分割线~~~~~~

提取相同字符

步骤1

插入代码

【操作】开发工具–Visual Basic–插入–模块–复制粘贴VBA代码–保存为启用宏的工作薄

代码如下：

Function 相同字符(rg1 As Range, rg2 As Range)

For i = 1 To Len(rg1.Value)

If InStr(rg2, Mid(rg1.Value, i, 1)) > 0 Then

a = a & Mid(rg1, i, 1)

End If

Next

相同字符 = a

End Function

————————————-

————————————-

步骤2

使用函数

【公式】=相同字符(A2,B2)

————————————-

只需两步，轻松提取文本数据中的相同字符文本比对，VBA代码是不是很强大呢？心动的你赶快自己动手试试吧~~

知 识 点

限时特惠：本站每日持续更新海量各大内部网赚创业教程，会员可以下载全站资源点击查看详情
站长微信：