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

有时需要将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”。