excel 怎样用vba实现多行身份证号码提取出生日期

发布网友发布时间：2022-04-22 23:05

共1个回答

热心网友时间：2023-10-08 16:08

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Dim i As Long
If Target.Column = 3 Then
For i = Target.Row To Target.Row + Target.Rows.Count - 1
Range("D" & i) = Mid(Range("C" & i), 7, 8)
If Mid(Range("C" & i), 17, 1) Mod 2 = 0 Then Range("E" & i) = "女" Else Range("E" & i) = "男"
Next
End If
End Sub以上只适用18位身份证，15位的自己发挥一下

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com