<em>excel</em> 删除单元格内重复相同的字，只保留一个-excel 重复字母,exc

Sub LKJL()
Set d = CreateObject("scripting.dictionary")
For X = 1 To [A65536].End(3).Row
SS = Cells(X, 1)
For I = 1 To Len(SS)
KK = Mid(SS, I, 1)
d(KK) = ""
Next
SS = Join(d.KEYS, "")
Cells(X, 1) = SS
d.RemoveAll
Next
Set d = Nothing
End Su 用这个zd放在第回一列可以答

1、首先打开excel表，很明百显，在这张表的数据里面，有重复的英度文字母。

2、首先点击菜单栏的“数据”选项卡。

3、然后用鼠标框选A1：A7单元格。

4、单击问“删除重复答项”会出现如图对话框，单击确定按钮。

5、excel会出现如图提示，“发现了内1个重复值，已将其容删除；保留了5个唯一值”。

6、得到需要的结果。

一个表格里面的zd一个单元格重复文字筛选的话需要做辅助列来完成。

在辅助列中输入公式版，并向下权填充，如下：

=IF(SUMPRODUCT(FIND(MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1),A1))<SUMPRODUCT(ROW(INDIRECT("1:"&LEN(A1)))),"有重复","无重复")

效果图

可以用来vba写个去重的自定义函数源。

代码如下：知

Function QCF(S As String)

   Dim ZD

   Set ZD = CreateObject("SCRIPTING.DICTIONARY")

   QCF = ""

   For I = 1 To Len(S)

      MYT = Mid(S, I, 1)

      If Not ZD.EXISTS(MYT) Then

         ZD.Add MYT, 1

         QCF = QCF & MYT

      End If

   Next I

End Function

效果如图道：