请大侠帮助根据身份证号码返回省市县的vba代码，谢谢！

hcy1185 · 发表于 2021-2-6 11:01

请大侠帮助根据身份证号码返回省市县的vba代码，谢谢！
省市县分别填在单元格，

2021年春节放假留勤人员统计表（2.1）.rar (82.91 KB, 下载次数: 54)

hcy1185 · 发表于 2021-2-6 11:20

本帖最后由 hcy1185 于 2021-2-6 11:24 编辑

1、身份证号码前2位与地址码a列前2位相同时，返回第一个（从上到下）b列的名称，即“省”
2、身份证号码3-4位与地址码a列3-4位相同时，返回第一个（从上到下）b列的名称，即“市”
3、身份证号码5-6位与地址码a列5-6位相同时，返回b列对应的名称，即“县”

蓝桥玄霜 · 发表于 2021-2-6 12:17

地址码的例子：

hcy1185 · 发表于 2021-2-6 15:13

蓝桥玄霜发表于 2021-2-6 12:17
地址码的例子：

蓝版主您好！370822应该是山东省，济宁市，找不到县才对，地区结果是邹城市不对，请指教！谢谢！

zpy2 · 发表于 2021-2-6 16:25

hcy1185 发表于 2021-2-6 15:13
蓝版主您好！370822应该是山东省，济宁市，找不到县才对，地区结果是邹城市不对，请指教！谢谢！

370822是不是没有这个号码？

hcy1185 · 发表于 2021-2-6 16:26

zpy2 发表于 2021-2-6 16:25
370822是不是没有这个号码？

有08没有22

wxxydl · 发表于 2021-2-6 16:38

你看一下是否符合要求你的地址码不全

zpy2 · 发表于 2021-2-6 17:23

本帖最后由 zpy2 于 2021-2-7 11:07 编辑

hcy1185 发表于 2021-2-6 16:26
有08没有22

3、身份证号码5-6位与地址码a列5-6位相同时，返回b列对应的名称，即“县”

?????
収*O_20210207_110621.png

XUEJUNXI · 发表于 2021-2-6 17:48

附件仅供参考

蓝桥玄霜 · 发表于 2021-2-7 08:42

代码修改如下：

Sub lqxs()
Dim d, Arr, i&, Brr, sf$, dq$, sx$, x$, tt, aa, j%, jj%
Set d = CreateObject("Scripting.Dictionary")
Sheet2.Activate
[h2:j500].ClearContents
Arr = [a1].CurrentRegion
Brr = Sheet1.UsedRange
For i = 1 To UBound(Brr)
If Brr(i, 1) <> "" Then
x = Left(Brr(i, 1), 2)
d(x) = d(x) & i & ","
End If
Next
For i = 2 To UBound(Arr)
ss = Arr(i, 6)
If ss <> "" Then
sf = Left(ss, 2): dq = Left(ss, 4): sx = Left(ss, 6)
If d.exists(sf) Then
tt = d(sf): tt = Left(tt, Len(tt) - 1)
aa = Split(tt, ",")
Cells(i, 8) = Brr(aa(0), 2)
For j = 1 To UBound(aa)
x = Left(Brr(aa(j), 1), 4): dd = 0
If dq = x Then
Cells(i, 9) = Brr(aa(j), 2): dd = 1
For jj = j To UBound(aa)
x = Left(Brr(aa(jj), 1), 6)
If sx = x Then
Cells(i, 10) = Brr(aa(jj), 2): GoTo 100
End If
Next
MsgBox "没有找到市县代码": GoTo 100
End If
Next
If dd = 0 Then MsgBox "没有找到地区代码"
Else
MsgBox "地址码错误。"
End If
End If
100:
Next
End Sub

复制代码

		自动登录	找回密码
密码			免费注册

[求助] 请大侠帮助根据身份证号码返回省市县的vba代码，谢谢！

评分

评分