快递信息提取

我的城市你来过

=LET(x,TEXTSPLIT($A2,{"，";" ";"。";"；"}),CONCAT(IF(LENB(x)=SMALL(LENB(x),COLUMN(A1)),x,"")))

swl4561255

1. Sub test()
   
2. ar = [A1].End(4).Row
   
3. arr = Range("A2:A" & ar)
   
4. Dim brr()
   
5. mystr = Array("[\u4E00-\u9FA5]{2,3}", "\d{11}", "[\u4E00-\u9FA5]{4,}")
   
6. Set reg = CreateObject("vbscript.regexp")
   
7. ReDim brr(1 To ar, 1 To 3)
   
8. With reg
   
9.    .Global = True
   
10.   For i = 1 To ar - 1
    
11.    For j = 1 To 3
    
12.       .Pattern = mystr(j - 1)
    
13.       brr(i, j) = .Execute(arr(i, 1))(0)
    
14.    Next
    
15.   Next
    
16. End With
    
17. [C2].Resize(ar - 1, 3) = brr
    
18. End Sub

复制代码

我的城市你来过

=SORTBY(REGEXP(A2,"[一-龟0-9]+"),LENB(REGEXP(A2,"[一-龟0-9]+")),1)

hxj119

=HSTACK(REGEXP(A2,"(?<![一-龟])[一-龟]{2,5}(?![一-龟]|\d+)"),REGEXP(A2,"1[3-9][0-9]{9}"),REGEXP(A2,"[一-龟]{6,}"))

inrever

1. =DROP(REDUCE("",A2:A11,LAMBDA(a,n,VSTACK(a,LET(b,TEXTSPLIT(n,{"。","，"," ","；"}),SORTBY(b,LENB(b),1))))),1)

复制代码

1786024734

boyuanoffice 发表于 2024-3-27 08:19

SORTBY用得简洁给力，可以再简化：

1. =LET(x,TEXTSPLIT(A2,{" ","；","，","。"}), SORTBY(x,LENB(x)))

复制代码

mjm04

我的城市你来过 发表于 2024-6-23 16:41
=SORTBY(REGEXP(A2,"[一-龟0-9]+"),LENB(REGEXP(A2,"[一-龟0-9]+")),1)

那个 LENB 真是用的好啊，

用于快递的地址是不会少于5位汉字的，好思路啊！！

alan57

1. =HSTACK(REGEXEXTRACT(A2:A11,HSTACK("\b[一-龟]{2,3}\b","\d{11}")),REGEXREPLACE(A2:A11,"\b[一-龟]{2,3}\b|\d{11}|( |。|，|；)",,))

复制代码

刚学正则，地址还没有学会怎么弄，等嫖大佬们的。

zjmhsjbsc951138

mykitami 发表于 2024-3-27 09:22
=LET(a,TEXTSPLIT(A2,{"；";" ";"。";"，"},,1),dh,TOCOL(--a,2),xz,FILTER(a,ISERROR(--a)),zz,FILTER(xz, ...

就是不知道这是什么意思，能不能讲讲

zjmhsjbsc951138

cnmlgb9998 发表于 2024-3-27 09:30
用PQ解决，简单方便，还能随数据源更新而更新，不香吗？？？？

这个验证过吗？能不能行啊