excel表格怎样删除重复文字只留一个

Question

比如里面有一个韩字，怎么把它全部删除？只留一个韩字 删除里面全部相同的字，只留一个 最快捷的方法

Answer 1

你好！楼主的问题没有描述清楚，自然也就没法解决。这样吧，给楼主写一个VBA程序代码，楼主可以根据实际需要进行修改。

一、VBA程序代码如下：（写代码不易，望笑纳）

Sub Replace_N()
Dim i1, i2, i3, i4, i5, arr, str, str2
On Error Resume Next  '忽略运行过程中可能出现的错误
Set mysheet1 = ThisWorkbook.Worksheets("Sheet1") '定义工作表Sheet1
arr = Array("韩", "美剧") '要查找的字符组，可自己加进来

For Each str In arr  '对字符组逐一查找
 i2 = 0
 For i1 = 1 To 1000  '从第1行到1000行
  If mysheet1.Cells(i1, 1) <> "" Then  '如果单元格不是空白，则
  i3 = 0
  str2 = mysheet1.Cells(i1, 1).Value
   For i4 = 1 To Len(mysheet1.Cells(i1, 1))  '执行的次数从1到单元格的字符串长度
   i3 = InStr(i3 + 1, str2, str) '获取字符串所在的位置
    If i3 > 0 Then
    i2 = i2 + 1
     If i2 > 1 Then
      str2 = Application.WorksheetFunction.Replace(str2, i3, Len(str), "") '替换成空白
     End If
    End If
    If i3 = 0 Then
     Exit For
    End If
    Next
     mysheet1.Cells(i1, 1) = str2
  End If
 Next
Next

End Sub

二、VBA程序的执行结果如下：

追问

我想要的结果是 【韩剧0123456美M】顺序无所谓 主要是不能重复字 你重复了【 剧 0 M 1 2 3 4 5 6】

Answer 2

按Ctrl+H调出替换对话框，查找中输入“*韩*”，替换中输入“韩”，按全部替换。完成。够快捷吧。追问

重复的字，不止一个韩字 比如说（宽松）（上衣）（露背）（夏季）～ 并且重复的字最少留一个

追答

没明白你的要求，不好意思，最好截图，截图带行号和列标，并举例说明，删除前单元格中的内容是什么，删除后的内容是什么，依据规则是怎样的。否则追问-追答-再追问-再追答，还是解决不了问题。

Answer 3

如果是实用型提问，给你个方法，B1输入：

=REPLACE(A1,IFERROR(SMALL(IF(MATCH(MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1),MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1),)<>ROW(INDIRECT("1:"&LEN(A1))),ROW(INDIRECT("1:"&LEN(A1)))),1),1000),1,"")

ctrl+shift+回车右拉几列（视可能重复字多少而定）后下拉，复制最后一列，选择性粘贴成值到A列。