# 通过excel计算身份证号校验位

- 连结：https://blog.guohao.asia/%e9%80%9a%e8%bf%87excel%e8%ae%a1%e7%ae%97%e8%ba%ab%e4%bb%bd%e8%af%81%e5%8f%b7%e6%a0%a1%e9%aa%8c%e4%bd%8d.html
- 发布时间：2022-09-29T12:19:30+08:00
- 作者：null

中文   英文   韩语   日语

# 通过 excel 计算身份证号校验位

自从 2004 年 1 月 1 日《中华人民共和国居民身份证法》施行开始，居民身份证号码由 15
位升为 18 位，其中年份由 2 位扩展位 4 位，同时增加最后一位作为校验位。

在人事管理的实际操作过程中，曾经遇到过持假身份证入职的情况，当时我正在企业里牵头
EHR 系统实施，员工电子档案还只是通过 Excel 管理，所以只能通过 Excel 来校验身份证
号码的真伪。

>  * 校验位是根据〖中华人民共和国国家标准 GB 11643-1999〗中有关公民身份号码的规定，
>    前面十七位数字码，按照 ISO 7064:1983.MOD 11- 2 校验码计算出来的检验码。

计算过程如下：

 1. 身份证第 1-17 位分别乘以对应的权重因子

![通过 excel 计算身份证号校验位](https://blog.guohao.asia/wp-content/themes/wordpress-
theme-puock-2.8.16/assets/img/z/load.svg "通过 excel 计算身份证号校验位")

 2. 将乘积之和取模 11（即取除以 11 后的余数），根据下表得到对应的第 18 位校验码

![通过 excel 计算身份证号校验位](https://blog.guohao.asia/wp-content/themes/wordpress-
theme-puock-2.8.16/assets/img/z/load.svg "通过 excel 计算身份证号校验位")

其中的 X，实际上是罗马数字中的 10，即Ⅹ

![通过 excel 计算身份证号校验位](https://blog.guohao.asia/wp-content/themes/wordpress-
theme-puock-2.8.16/assets/img/z/load.svg "通过 excel 计算身份证号校验位")

在不同的字体里，两者可能会存在非常相似的情况，但在 Excel 中，用 code 函数可以很清楚
的看出两者之间的差别。

在实际工作中，为了输入方便，往往也是直接输入大写英文字母“X”。

## 通过 Excel 数组公式求身份证号校验位：

    ```language-default
    =MID("10X98765432",MOD(SUM(MID(A1,ROW(INDIRECT("1:17")),1)*2^(18-ROW(INDIRECT("1:17")))),11)+1,1)
    ```

_Excel 中的数组公式需要使用 SHIFT+CTRL+ENTER 键入_

## 通过 VBA 自定义函数处理身份证号校验位：

    ```language-default
    Function ID(num)
        Dim X(17)  ' 储存身份证号码分割后的每位字符
        Dim Y()  ' 储存计算相乘的系数
        Dim LastNum()  '储存身份证最后一位验证码' 储存身份证前 17 位
        For i = 0 To 16
            X(i) = Mid(num, i + 1, 1)
        Next   
        '如果第 18 位是字母 X 或 x，将数字 10 储存到 X(17)中' 如果第 18 位是数字，直接储存到 X(17)中
        ' 如果是其他情况，什么都不做
        If Mid(num, 18, 1) = "X" Or Mid(num, 18, 1) = "x" Then
            X(17) = 10
        ElseIf IsNumeric(Mid(num, 18, 1)) Then
            X(17) = Mid(num, 18, 1)
        End If    
        'Y 中最后一位 11 是取模的除数，其余是相乘系数
        Y = Array(7, 9, 10, 5, 8, 4, 2, 1, 6, 3, 7, 9, 10, 5, 8, 4, 2, 11)
        LastNum = Array(1, 0, 10, 9, 8, 7, 6, 5, 4, 3, 2)    
        ' 判断位数，18 位且前 17 位都是数字才可能正确，再计算校验码判断
        If Len(num) = 18 And Application.WorksheetFunction.IsNumber(Mid(num, 1, 17)) Then
            Sum = 0
            For i = 0 To 16
                Sum = Sum + X(i) * Y(i)
            Next
            Code = Sum Mod Y(17)
            If LastNum(Code) - X(17) = 0 Then
                ID = "正确"
            Else
                ID = "请检查身份证号码！"
            End If    
        ' 非 18 位情况身份证号码错误
        Else
            ID = "请检查身份证号码！"
        End If        
    End Function
    ```

以下是经优化后的 VBA 代码：

    ```language-default
    Function ID(num)
    Dim X(0 To 16) As String ' 储存身份证号码分割后的每位字符
    Dim Y() As Integer ' 储存计算相乘的系数
    Dim LastNum() As Integer ' 储存身份证最后一位验证码
    Dim i As Integer
    Dim Sum As Long
    Dim Code As Integer

    ' 将字符串转成字符数组并储存
    X = Split(Left(num, 17), "")' 如果第 18 位是字母 X 或 x，将数字 10 储存到 X(17)中
    ' 如果第 18 位是数字，直接储存到 X(17)中
    If Mid(num, 18, 1) Like "[0-9]" Then
        X(17) = Mid(num, 18, 1)
    ElseIf LCase(Mid(num, 18, 1)) = "x" Then
        X(17) = "10"
    End If

    'Y 中最后一位 11 是取模的除数，其余是相乘系数
    Y = Array(7, 9, 10, 5, 8, 4, 2, 1, 6, 3, 7, 9, 10, 5, 8, 4, 2, 11)
    LastNum = Array(1, 0, 10, 9, 8, 7, 6, 5, 4, 3, 2)

    ' 判断位数，18 位且前 17 位都是数字才可能正确，再计算校验码判断
    If Len(num) = 18 And IsNumeric(Left(num, 17)) Then
        Sum = 0
        For i = 0 To 16
            Sum = Sum + X(i) * Y(i)
        Next
        Code = Sum Mod 11
        If LastNum(Code) = CInt(X(17)) Then
            ID = "正确"
        Else
            ID = "请检查身份证号码！"
        End If
    ' 非 18 位情况身份证号码错误
    Else
        ID = "请检查身份证号码！"
    End If
    End Function

    优化说明：将变量声明放置在函数开始处，提高代码的可读性；将字符分割为字符数组，简化代码；使用 Like 运算符代替 Or，简化代码；将字符转换为数值类型，提高代码执行效率；简化校验码的计算过程；若校验码计算错误，提示后缀不必添加“位身份证号码”。
    ```