设身份证号在C列的C2开始，请在空白位置增加一列如F列求年龄数，在F2输入公式：
=DATEDIF(TEXT(MID(A2,7,8),"0000-00-00"),TODAY(),"y")
下拉填充，再对这列进行筛选即可 。
如果 是要计算到某一日期，如“2018-9-1”，则公式改为：
=DATEDIF(TEXT(MID(A2,7,8),"0000-00-00"),"2018-9-1","y")
简单的公式就能搞定，何必要VBA!
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024