批量从身份证号提取出生日期

LD521 · 发表于 2018-9-12 20:12

求助！！！数百excel表格中C9：C14列身份证号转为出生日期，以及J23到J26复制为一样的，可以分为两个宏代码

万分感谢！！！

719404338 · 发表于 2018-9-12 21:48

Sub t()
Dim i%
For i = 9 To 14
Range("h" & i) = Mid(Range("c" & i), 7, 4) & "年" & Mid(Range("c" & i), 11, 2) & "月"
Next i
End Sub
Sub tt()
[h9:h12].Copy [j23:j26]
End Sub

复制代码

yaozong · 发表于 2018-9-13 10:38

用函数公式也可以。
出生日期=TEXT(MID(C9,7,8),"#-00-00")+0
性别=IF(MOD(RIGHT(LEFT(C9,17)),2),"男","女")

yaozong · 发表于 2018-9-13 10:41

参考附件

180913-111.rar (10.71 KB, 下载次数: 3)

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

[求助] 批量从身份证号提取出生日期