excel表格怎么删除aabc

1.怎么删除excel中的重复项,如AABBCC变成ABC

自定义函数。任意创建一个宏，将下列代码替换sub 和end sub之间的所有内容，退出后即可使用自定义函数“删除重复”处理重复项。

Function 删除重复（a） As String

If a = "" Then

删除重复 = ""

Else

删除重复 = Left(a, 1)

For i = 2 To Len(a)

If Mid(a, i - 1, 1) <> Mid(a, i, 1) Then

删除重复 = 删除重复 + Mid(a, i, 1)

End If

Next i

End If

End Function

2.求助啊 excel abc 中去除ab 保留c

像这样复杂的问题还是用VBA来解决的好。从你的例子中可以看出，对于B列中出现过的字母都在需去除的范围，不管它出现在B列的哪个单元格。我的思路是：把A列复制到C列，选中C列，对C列进行字符串替换，把B列出现的每一个字母，替换成“空”字符串。这样的VBA程序只要录制一个宏，略加改造（添加循环）即可完成。我做了一个如下：

待续，因系统常会错杀含VBA代码的回答，我过14分钟（到9点钟）再把代码传上来。到时，如果我的回答消失，说明我的回答已被拦截，请耐心等待我的申诉成功。

现在已到9点，我把代码传上：

Sub 去除B列字母（）

Dim rag As Range, a$, i As Integer

Columns("A:A").Select

Selection.Copy

Columns("C:C").Select

ActiveSheet.Paste

Columns("C:C").Select

For Each rag In Range("B1:B" & Range("B65536").End(xlUp).Row)

For i = 1 To Len(rag.Value)

a$ = Mid(rag.Value, i, 1)

Selection.Replace What:=a$, Replacement:="", LookAt:=xlPart, _

SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

ReplaceFormat:=False

Next i

Next

Application.CutCopyMode = False

Range("C1").Select

End Sub