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

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

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

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

Function GetDupChar(theString As String) As String
Dim i As Integer
For i = 1 To Len(theString) – 1
If 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 If
Next
End Function

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

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

=GetDupChar(A2)

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

=GetDupChar(A3&A4)

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