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

mjm04

hugeinfo 发表于 2024-7-22 14:19
低版本

=LET(a,TRIM(MID(SUBSTITUTE(A1,"/",REPT(" ",99)),ROW($1:$99)*99-98,99)),TEXTJOIN("/",1,IFER ...

大哥，低版本没有  LET  函数的

hugeinfo

mjm04 发表于 2024-7-22 15:30
大哥，低版本没有  LET  函数的

我以为是2021版本呢   那就把定义a的公式套进去

niko88819

b1 =RemoveDuplicates(A1) 下拉

1. Function RemoveDuplicates(inputStr As String) As String
   
2.     Dim elements() As String
   
3.     Dim element As Variant
   
4.     Dim dict As Object
   
5.     Set dict = CreateObject("Scripting.Dictionary")
   
6.         elements = Split(inputStr, "/")
   
7.     For Each element In elements
   
8.         If Not dict.exists(element) Then
   
9.             dict.Add element, Nothing
   
10.         End If
    
11.     Next element
    
12.     RemoveDuplicates = Join(dict.keys, "/")
    
13. End Function

复制代码

ggmmlol

mjm04 发表于 2024-7-22 15:30
大哥，低版本没有  LET  函数的

版本低，那赶紧打怪升级啊 WPS最新版就很不错，那些MS Office 365beta版的最新函数，WPS现在也都有了，而且还有EXCEL所没有的文本公式求值函数EVALUATE、批量替换函数 SUBSTITUTES 。对于以函数公式为主要处理工具的用户来主说，WPS更香啊