b1=IF(LEN(a1)=18,TEXT(MID(a1,7,8),"#-00-00"),"19"&TEXT(MID(a1,7,6),"#-00-00")) c1=IF(a1="","",IF(MOD(RIGHT(LEFT(a1,17),1),2)=0,"女","男"))
B1=MID(A1,7,8)C1=IF(MOD(--MID(B1,7,1),2),"男","女")用函数即可,还用VBA个毛!另:悬分也没有!
只需使用一个MID函数,MID函数就是从第几位数开始取,取我长的字符数。