Excel 去除重复字符

答案:6 悬赏:30 手机版

解决时间 2021-01-24 12:36

提问者网友：棒棒糖
2021-01-23 13:31

Excel 去除重复字符

最佳答案

五星知识达人网友：北方的南先生
2021-01-23 14:09

1、如果要去掉Excel 中的重复字符，可以通过查找和替换功能将其删除。
2、操作如下所示。
1有符号的数据
2点击“查找和选择”
3替换
4输入查找内容为“%”
5替换中为空（不要输入任何数或也不要按空格键）
6全部替换
7去掉%号的数据

全部回答

1楼网友：一秋
2021-01-23 17:07

写个长一点的公式，可以满足楼主的要求
=SUBSTITUTE(SUBSTITUTE(TRIm(SUBSTITUTE("|"&A1&"|","f"," "))," ","f"),"|","")

2楼网友：底特律间谍
2021-01-23 16:21

工具-宏-vba编辑器
左边thisworkbook右键，插入模块
双击模块1
右侧窗口把下列代码复制进去
Function a(t As String) As String
Dim i As Integer
Dim k, l, f As String
f = "f"
For i = 1 To Len(t) - 1
l = Mid(t, i, 1)
If Mid(t, i, 1) <> f Then
If Mid(t, i + 1, 1) = f Then
k = k + l + f
Else
k = k + l
End If
End If
Next
If Left(t, 1) = f Then
k = f + k
End If
If Right(t, 1) <> f Then
k = k + Right(t, 1)
End If
a = k
End Function
关闭VBA窗口，在单元格里就可用函数a了

3楼网友：渊鱼
2021-01-23 16:16

新录制一个宏，然后查看宏代码，将下面代码放入代码模块中，然后假设数据在A1中（yyqq16888）B1中输入： =abc(a1) 就OK!
Function abc(a)
For i = 1 To Len(a)
If Mid(a, i, 1) <> Mid(a, i + 1, 1) Then
tr = tr & Mid(a, i, 1)
End If
Next
abc = tr
End Function

4楼网友：独行浪子会拥风
2021-01-23 15:10

如果数据在A1:A100中,B1中输入
=REPLACE(A1,FIND("f",A1),LEN(A1)-LEN(SUBSTITUTE(A1,"f",)),"f")
用自动填充柄向下复制,就可以了,不过如果没有f,会出现错误值.
还是再改一下,把没有f的也考虑进去,公式改为
=IF(ISERR(FIND("f",A1)),A1,REPLACE(A1,FIND("f",A1),LEN(A1)-LEN(SUBSTITUTE(A1,"f",)),"f"))

5楼网友：枭雄戏美人
2021-01-23 14:19

层数太多的话，为什么不定义名称呢？
用自定义函数也可以
Public Function hreplace(a As String, b As String)
Dim aa As String
For i = 1 To Len(a)
If Mid(a, i, 1) <> b Or Right(aa, 1) <> Mid(a, i, 1) Then
aa = aa & Mid(a, i, 1)
End If
Next
hreplace = aa
End Function
hreplace(参数1，参数2）
第一个参数是你的原字符串，第二个参数是你要替换的字符

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息