Excel利用自定义函数提取字符串中的重复字符

Excel利用自定义函数提取字符串中的重复字符

有时需要将Excel单元格内字符串中的重复字符提取出来，例如提取字符串“abcdeAbcDe”中重复的几个字符“bce”，如图所示，可以用自定义函数实现。

1.按Alt+F11，打开VBA编辑器。

2.单击菜单“插入→模块”，在代码窗口中粘贴代码：

Function GetDupChar(theString As String) As StringDim i As IntegerFor i = 1 To Len(theString) – 1If Len(theString) – Len(Replace(theString, Mid(theString, i, 1), "")) > 1 Then ‘If InStr(GetDupChar, Mid(theString, i, 1)) = 0 Then GetDupChar = GetDupChar & Mid(theString, i, 1)End IfNextEnd Function

3.关闭VBA编辑器，返回Excel工作表界面。

假如字符串在A2单元格，在B2输入公式：

=GetDupChar(A2)

要将多个单元格中的字符串合并后提取重复字符，如A3单元格为“12345123”，A4单元格为“mnc12526”，在B8单元格输入公式：

=GetDupChar(A3&A4)

将返回这两个单元格中字符串合并后重复的字符“1235”。

版权声明：本文内容由网络用户投稿，版权归原作者所有，本站不拥有其著作权，亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容，请联系我们jiasou666@gmail.com 处理，核实后本网站将在24小时内删除侵权内容。