求助-如何去除单元格中重复的字符？

lxy285440076

求助-如何去除单元格中重复的字符？.zip (8.63 KB, 下载次数: 27)

2024-7-22 14:05 上传

点击文件名下载附件

小凡、、、

拆分去重后拼接，需要高版本函数支持

ww87725244

=TEXTJOIN("/",,UNIQUE(TEXTSPLIT(A1,"/"),1))

hxj119

=TEXTJOIN("/",,UNIQUE(TEXTSPLIT(A1,,"/")))

我的城市你来过

=TEXTJOIN("/",,UNIQUE(REGEXP(A1,"\d+"),TRUE))

沈默00

=TEXTJOIN("/",,UNIQUE(TEXTSPLIT(A1,"/"),1))  下拉

hugeinfo

低版本

=LET(a,TRIM(MID(SUBSTITUTE(A1,"/",REPT(" ",99)),ROW($1:$99)*99-98,99)),TEXTJOIN("/",1,IFERROR(INDEX(a,SMALL(IF(MATCH(a,a,)=ROW($1:$99),ROW($1:$99),9^9),ROW($1:$99))),"")))

沈默00

=LET(_x,CONCAT(UNIQUE(TEXTSPLIT(A1,"/"),1)&"/"),LEFT(_x,LEN(_x)-1))

zhangcheng6688

学习一下字典，打扰了
Sub test()
arr = [a1].CurrentRegion
Set d = CreateObject("scripting.dictionary")
ReDim crr(1 To UBound(arr), 1 To 1)
For i = 1 To UBound(arr)
   brr = Split(arr(i, 1), "/")
   For j = 0 To UBound(brr)
      If Not d.exists(brr(j)) Then
         crr(i, 1) = crr(i, 1) & "/" & brr(j)
         d(brr(j)) = ""
      End If
   Next
   d.RemoveAll
   crr(i, 1) = Mid(crr(i, 1), 2)
Next
[b1].Resize(UBound(crr), 1) = crr
End Sub

大道无形5613

=TEXTJOIN("/",TRUE,UNIQUE(TEXTSPLIT(A1,,"/")))