电子表格想请教一下用Excel批量修改身份证号码的问题,篇幅有限,我再问题

1.想请教一下用Excel批量修改身份证号码的问题,篇幅有限,我再问题

自定义函数，将17位号码升到18位，

标准模块中粘贴下面代码：

Function idcode(sCode As String) As String

Dim I As Integer

Dim num As Integer

Dim Code As String

num = 0

idcode = sCode

For I = 18 To 2 Step -1

num = num + (2 ^ (I - 1) Mod 11) * (Mid(idcode, 19 - I, 1))

Next I

num = num Mod 11

Select Case num

Case 0

Code = "1"

Case 1

Code = "0"

Case 2

Code = "X"

Case Else

Code = Trim(Str(12 - num))

End Select

idcode = idcode + Code

End Function

假设a1为17位身份证号码

像普通函数一样，输入 =idcode(a1)