今天跟大家分享一下如何使用VBA批量提取身份证号码中的出生日期
工具/原料
Excel
方法/步骤
1、如下图含有部分身份证号码，现在我们想要使用VBA快速提取出这些身份证号码中的出生日期。
2、同时按下Alt+F11打开VBA编辑窗口
3、点击sheet1，然后在右边区域输入VBA代码。（详细代码在最后一步）
4、返回Excel界面，选中A2:A11单元格区域
5、然后在VBA界面点击F5，选择运行，然后选择B2单元格，点击确定
6、即可批量提取出生日期，完成效果如下图。
7、本文中使用的VBA代码如下水貔藻疽，如果有朋友需要定制VBA,可以百度方方格子。Sub???????????????()On呶蓟鹭毵ErrorResumeNextDimar,i,iiDimtmpIfSelection.Areas.Count>1ThenExitSubIfSelection.Cells.Count>Columns.CountThenMsgBox"?????????????"ExitSubEndIfar=SelectionSetrngs=Application.InputBox("???????????????","???",,,,,,8)'????????IfSelection.Cells.Count=1Thentmp=IDBirthday(ar)ar=tmprngs.Cells(1,1)=arExitSubEndIf'????????RandomizeTimerFori=1ToUBound(ar)Forii=1ToUBound(ar,2)tmp=IDBirthday(ar(i,ii))ar(i,ii)=tmpNextNextrngs.Resize(UBound(ar),UBound(ar,2))=arEndSubFunctionIDBirthday(sid)AsStringDimrltSelectCaseLen(sid)Case15rlt=Format("19"&Mid(sid,7,6),"0000-00-00")Case18rlt=Format(Mid(sid,7,8),"0000-00-00")Case0rlt=""CaseElserlt="??Ч"EndSelectIDBirthday=rltEndFunction