EXCEL删除单元格内重复的字，只保留一个，求助

答案:2 悬赏:30 手机版

解决时间 2021-03-04 16:02

提问者网友：富士山上尢
2021-03-03 21:04

一个单元格比如糖果色加绒裤子女装休闲女糖果变成糖果色加绒裤子女装休闲
如果是两个单元的话比如糖果休闲和休闲糖果能不能只保留一个，把另一个删除
如果需要编写宏的话麻烦给弄一个啊

最佳答案

五星知识达人网友：十年萤火照君眠
2021-03-03 22:28

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 用这个放在第一列可以

全部回答

1楼网友：毛毛
2021-03-03 22:55

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 suba列数据，批量去重

我要举报

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

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