EXCEL如何去掉字符串中重复字符

1、我们打开要进行数据处理的表格

2、我们会发现，C列每个单元格里边的字母都有个别是重复的，下面我们来说先我们的目的：把C列字符串中的字符保留唯一值，去掉多余重复的值

3、我们按ALT+f11，进入VBE程序操作页面

4、将鼠标下移，右键弹出如图

5、选择插入-模块

6、鼠标向右移动，将如下代码写入：

Sub test()

  Dim d As Object

  Dim r%, i%

  Dim arr

  Set d = CreateObject("scripting.dictionary")

  With Worksheets("sheet1")

    r = .Cells(.Rows.Count, 3).End(xlUp).Row

    arr = .Range("c2:d" & r)

    For i = 1 To UBound(arr)

      d.RemoveAll

      For j = 1 To Len(arr(i, 1))

        ch = Mid(arr(i, 1), j, 1)

        d(ch) = ""

      Next

      arr(i, 2) = Join(d.Keys, "")

    Next

    .Range("d2").Resize(UBound(arr), 1) = Application.Index(arr, 0, 2)

  End With

End Sub

7、按F5，运行代码，后返回工作表，我们会发现单元格中的重复字符已经被去掉