清除相同的字符只保留其中之一

CCCP99

请大神帮忙，A1，A2单元格的数据中，清除第一个（1P，S，...)只保留第二个（1P，S, .），万分感谢大家！

闪闪小红星

没有规律可找，手动操作吧

micch

substitute两个嵌套，如果固定是1P和S，如果是不固定字符串，神仙也没办法了

CCCP99

用了这个解决了第一行的1P问题
LEFT(A13,FIND("1P",A13))&SUBSTITUTE(RIGHT(A13,LEN(A13)-FIND("1P",A13)),"1P","")
剩余的两行不知道怎么设置多条件

冠字风华瞳

CCCP99 发表于 2019-9-27 21:28
用了这个解决了第一行的1P问题
LEFT(A13,FIND("1P",A13))&SUBSTITUTE(RIGHT(A13,LEN(A13)-FIND("1P",A13)) ...

=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A1,"1P",,1),"S",,1),"..",,1)

CCCP99

冠字风华瞳 发表于 2019-9-27 21:40
=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A1,"1P",,1),"S",,1),"..",,1)

完美解决了，SUBS多嵌套就解决，万分感谢！
如果数据只有一个1P的话，公式写为=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A1,"1P",,2),"S",,1),"..",,1)
对吧？

CCCP99

CC***** 发表于 2019-9-27 21:52
完美解决了，SUBS多嵌套就解决，万分感谢！
如果数据只有一个1P的话，公式写为=SUBSTITUTE(SUBSTITUTE(S ...

大家在帮忙看看，IP的问题解决了，S的问题似乎有新的麻烦，谢谢大家了

CCCP99

这个S怎么处理呢？

liu2336904

你最好把各种情况的数据都模拟好，不要像挤牙膏。。。

tcdatongye

1. Sub 替换()
   
2. Dim reg As New RegExp
   
3. With reg
   
4.   .Global = True
   
5.   .IgnoreCase = True
   
6.   .Pattern = "(\dp|\D)(?=.*\1)"
   
7.   ss = "S8S112647084"
   
8.   kk = .Replace(ss, "")
   
9. End With
   
10. Debug.Print kk
    
11. End Sub
    

复制代码