请教老师一个拆分问题

大自在天

cnmlgb9998

用PQ太简单了。等我做

大自在天

cnmlgb9998 发表于 2024-3-28 11:04
用PQ太简单了。等我做

谢谢老师，公司里只有wps,需要用函数公式来解决

qwer401245

=LET(g,TEXTSPLIT(A1,,{":",";"}),TEXT({1,-1}%,REPLACEB(g,SEARCHB("?",g&0),,";")))

xlllw203

1. =LET(a,TEXTSPLIT(A1,,{":",";"}),b,IFERROR(BYROW(a,LAMBDA(x,-LOOKUP(,-RIGHT(x,ROW(1:99))))),""),HSTACK(SUBSTITUTE(a,b,),b))

复制代码

cnmlgb9998

PQ！！！！！！！！！！！！！！！！！

大自在天

xlllw203 发表于 2024-3-28 11:14

老师，不行呢

世界客都

最新版WPS
=LET(a,TEXTSPLIT(A1,,{":",";"}),b,SEARCHB("?",a&0),CHOOSE({1,2},LEFTB(a,b-1),MIDB(a,b,99)))

swl4561255

1. Sub Tiqu()
   
2. Dim brr()
   
3. myr = Split(Replace([A1], ":", ";"), ";")
   
4. Set reg = CreateObject("vbscript.regexp")
   
5. ReDim brr(0 To UBound(myr), 0 To 1)
   
6. With reg
   
7.   .Global = False
   
8.   .Pattern = "[\u4E00-\u9FA5]+"
   
9. End With
   
10. For i = 0 To UBound(myr)
    
11.    Set ma = reg.Execute(myr(i))
    
12.    brr(i, 0) = ma(0)
    
13.    brr(i, 1) = Replace(myr(i), ma(0), "")
    
14. Next
    
15. [F5].Resize(UBound(myr) + 1, 2) = brr
    
16. End Sub

复制代码

魚。。

世界客都 发表于 2024-3-28 11:51
最新版WPS
=LET(a,TEXTSPLIT(A1,,{":",";"}),b,SEARCHB("?",a&0),CHOOSE({1,2},LEFTB(a,b-1),MIDB(a,b,99) ...

新版wps连let都有了呀？不得了