EXCEL2007如何快速去掉字符串中重复字符

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

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

6、鼠标向右移动，将如下代码写入：Sub test() Dim d A衡痕贤伎s 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 WithEnd Sub