求提取公式

wyslw2004

我也让DS生成一份，和你们的截图不同，请老师指点

liyh67

wyslw2004 发表于 2025-4-2 04:58
我也让DS生成一份，和你们的截图不同，请老师指点

按“|”分列就可以了

mykitami

这个难了，干脆瞪眼法吧
这么乱的数据，即使用公式分出来一部分，也要逐个检查，有这个检查的时间，瞪眼法也干完了。

liyh67

331952289 发表于 2025-4-1 18:44
你是让Deepseek生成代码拆分还是直接结果拆分呢？

直接让他生成结果

大寒123

Function 地址(str As String)
Dim reg As Object, matches As Object, match As Object, temp As String
Set reg = CreateObject("VBScript.Regexp")
temp = ""
    With reg
        .Global = True
'"[一-龟\w\-]+" 匹配所有的汉字、数字、英文大小写字母和"-"符号来获取
        .Pattern = "[一-龥\w\-]+"
        Set matches = .Execute(str)
    End With
   
    For Each match In matches
'假定正则结果大于1个字，小于6个字的是姓名，其他的除了分隔符，都归入地址信息
        If Not ((Len(match) > 1) And (Len(match) < 6)) Then
            temp = temp & match
        End If
    Next match
   
    地址 = temp
End Function
Function 收件人(str As String)
Dim reg As Object, matches As Object, match As Object, temp As String
Set reg = CreateObject("VBScript.Regexp")
temp = ""
    With reg
        .Global = True
'"[一-龟\w\-]+" 匹配所有的汉字、数字、英文大小写字母和"-"符号来获取
        .Pattern = "[一-龥\w\-]+"
        Set matches = .Execute(str)
    End With
   
    For Each match In matches
'假定正则结果大于1个字，小于6个字的是姓名，其他的除了分隔符，都归入地址信息
        If (Len(match) > 1) And (Len(match) < 6) Then
            temp = temp & match
        End If
    Next match
   
    收件人 = temp
End Function

龙逸凡

用WPS很简单
=WPSAI.EXTRACT(A2,"姓名")
=WPSAI.EXTRACT(A2,"地址")

lyj344600

=LET(q,TEXTSPLIT(A32,{"！","，","  "," ","、","。","."},,1),w,LEN(q),e,SORTBY(q,w,-1),y,HSTACK(@e,TAKE(e,,-1)),y)能完成90%吧