身份证号码分析

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

有以下一个程式:
         Sub 判断身份证号码()
Dim i As Integer, j As Integer, A As String * 18
Dim m As Integer, n As Integer
       m = Range("B65536").End(xlUp).Row
For n = 2 To m
       A = Range("B" & n)
If Mid(A, 17, 1) Mod 2 = 0 Then
        Range("c" & n) = "女"
Else
         Range("c" & n) = "男"
End If
Range("D" & n) = Mid(A, 7, 4) & "_" & Mid(A, 11, 2) & "_" & Mid(A, 13, 2)
      j = Range("g65536").End(xlUp).Row
For i = 1 To j
If Range("G" & i) = Left(A, 6) Then
Range("E" & n) = Range("H" & i)
End If
    Next i
    Next n
End Sub

当我全部输入完成后红色字就提示出错,实在想不出办法.请大家帮忙解决,谢谢了.

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享1 收藏1 回帖

关键词：身份证号码 身份证号 身份证 Integer string 身份证号码

EXCEL难题一网打尽 来自：百度

瞧瞧.....谢谢分享

我猜那是因为Mid(A, 17,1)计算结果是个STRING，而MOD计算需要是数字。建议试试：Val(Mid(A, 17,1))