求助，关于邮寄地址不完整，需要匹配完整的省份信息

quqiyuan

用vba处理，结果还可以，仅供参考。。。

quqiyuan

代码如下。。。
Sub test()
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    t = Timer
    Dim wb As Workbook, sht As Worksheet, sh As Worksheet
    Set wb = ThisWorkbook
    Set sht = wb.Sheets("人员地址")
    Set sh = wb.Sheets("省+地级市+县级市汇总")
    arr = sh.[a1].CurrentRegion
    brr = sht.[a1].CurrentRegion
    Set d = CreateObject("scripting.dictionary")
    For i = 2 To UBound(arr)
        If Right(arr(i, 2), 1) = "市" Then
            s = Left(arr(i, 2), Len(arr(i, 2)) - 1)
            If Not d.exists(s) Then
                d(s) = arr(i, 1)
            End If
        End If
    Next
    Key = d.keys
    Item = d.items
    For i = 2 To UBound(brr)
        For j = 0 To UBound(Key)
            If InStr(Left(brr(i, 3), Len(Key(j))), Key(j)) Then
                brr(i, 4) = Item(j) & brr(i, 3)
                Exit For
            End If
        Next
        If j > UBound(Key) Then brr(i, 4) = brr(i, 3)
    Next
    Set d = Nothing
    sht.[a1].Resize(UBound(brr), UBound(brr, 2)) = brr
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
    MsgBox "共耗时：" & Format(Timer - t, "0.0000") & " 秒！！！", 64
End Sub

无关岁月

edwin11891 发表于 2025-2-21 18:15
忘记这招了！

还得是人工智能

Askinofblue

用表堆堆已经把所有的省份都匹配上了，只需要6行就可以完成，具体步骤可以查看附件。

表堆堆是一个可以完胜VBA和PQ的数据处理软件，比他们简单得多，非常值得学习

下载地址： https://sqlcel.com/download/

我的城市你来过

=WPSAI.EXTRACT(C2,"提取省份、直辖市、自治区，如果C2地址含2个不同城市名以第1个城市名为准")&C2

静听溪流

PQ的处理方式

1. https://mp.weixin.qq.com/s/gXo7vRIxmXlNmzL0TBfaQw

复制代码

sobili

无关岁月 发表于 2025-2-21 17:32

你好，WPSAI函数是哪个版本有？谢谢！

无关岁月

sobili 发表于 2025-2-22 21:22
你好，WPSAI函数是哪个版本有？谢谢！

moon2778

人员地址信息匹配-ai.zip (27.38 KB, 下载次数: 2)

2025-2-22 22:40 上传

点击文件名下载附件

还得是deepseek阿。不需要列出对应关系了，自己会帮你联网搜索的。。。


请制作一份表格，列出以下60个地址的省，希望第一列是这60个地址，第二列是所属的省（只需要省）
苏州市吴中区木渎镇
鄂尔多斯市东胜区铜川镇天骏大道
。。。

moon2778

还可以用wpsai，下载最新版本的wps，然后D列输入 =WPSAI(C2,"请加入正确的省份，将地址补充完整")
结果完美。。。
这时代，不需要人工找对应关系了。。。
人员地址信息匹配 - wpsai.zip (27.7 KB, 下载次数: 1)

2025-2-22 22:51 上传

点击文件名下载附件