如何提取身份证地址中的省份、市、县

康-康

好问题，好答案

game2010

谢谢分享 好贴

ExcelAPInet

快10年了，已经有了更高级的办法


公式名称：GetShoujianrenFromAddress(Address)，GetDianhuaFromAddress(Address);GetAddrFromAddress(Address)

用途说明：在Excel或WPS表格中，写公式，从一段收货地址中提取收件人姓名、收货人电话及详细地址。

参数说明：无。

数据来源：网络

运行环境：Excel2007、WPS2016+及以上

在表格中，使用=GetShoujianrenFromAddress(A2)从收货地址中提取收件人，使用=GetDianhuaFromAddress(A2)从收货地址中提取电话，使用=GetAddrFromAddress(A2)从地址中提取地址。

vistababy

ExcelAPInet 发表于 2023-3-29 13:23
快10年了，已经有了更高级的办法

你是淘宝卖家？
这个好像不太复杂，找到第1个数字，前面即为姓名，第1个数字开始的11位即为手机号，第1个数字开始加上11后半段即为详细地址。用left或right、instr、len几个函数应该能解决。

ExcelAPInet

vistababy 发表于 2023-3-30 11:23
你是淘宝卖家？
这个好像不太复杂，找到第1个数字，前面即为姓名，第1个数字开始的11位即为手机号，第1 ...

通常收货地址不是那么规范

vistababy

ExcelAPInet 发表于 2023-3-30 15:26
通常收货地址不是那么规范

只要内容按照姓名、手机号、地址顺序排列，地址不规范并不影响提取。
但如果这3个的顺序是各种各样的顺序，那就难了。比如姓名混在地址中

vistababy

ExcelAPInet 发表于 2023-3-29 13:23
快10年了，已经有了更高级的办法

我弄了点代码，感觉能实现这个功能。当前工作表建立一个模块，把下面代码放进去就行。文件存成xlsm扩展名。
只要名字里面没有数字1，只要电话是以1开头，就没问题。
在相应单元格里面打=getname(A1)、=getphone(A1)、=getaddress(A1)就行，批量填充。
我虽然没有系统学习过VBA，但也懂一些。太复杂的我就不懂了。



Function getname(ByVal Address As Range) As String
    getname = Left(Address, InStr(1, Address, "1") - 1)
End Function

Function getphone(ByVal Address As Range) As String
    getphone = Mid(Address, InStr(1, Address, "1"), 11)
End Function

Function getaddress(ByVal Address As Range) As String
    getaddress = Right(Address, Len(Address) - InStr(1, Address, "1") - 10)
End Function

取经人

WPS这个功能可以很好的把一整串的地址智能拆分出来 - 选中地址单元格，选择数据→分列→智能分列，点击完成即可。

取经人

小学二年级 发表于 2007-4-21 15:18
多谢楼上的热心提问与解答，又学到知识了，但有一小点就是湖南省岳阳县中州乡铜盘村第二十五村民组86号 中 ...

WPS可以把一整串的地址智能拆分出来 - 选中地址单元格，选择数据→分列→智能分列，点击完成即可

vistababy

取经人 发表于 2023-3-30 20:50
WPS这个功能可以很好的把一整串的地址智能拆分出来 - 选中地址单元格，选择数据→分列→智能分列，点击完成 ...

厉害