请问:已知姓名在b身份证号在f有15位和18位想提出性别和出生日期分别在c,d谢谢

性别C：
=IF(MOD(MID(B,IF(LEN(B)=15,15,17),1)+0,2)=0,"女","男")

生日D:
=IF(LEN(B)=15,"19"&MID(B,7,6),MID(B,7,8))

公式的方法：
性别：在C1填入
=IF(MOD(MID(F1,IF(LEN(F1)=15,15,17),1)+0,2)=0,"女","男")
填充到200行

生日：在D1填入
=IF(LEN(F1)=15,"19"&MID(F1,7,6),MID(F1,7,8))
填充到200行

宏的方法：
Sub test()
For a = 0 To 199
If (Right(Range("F1").Offset(a, 0).Value, 1) * 1) Mod 2 = 0 Then
Range("C1").Offset(a, 0).Value = "女"
Else
Range("C1").Offset(a, 0).Value = "男"
End If
If Len(Range("F1").Offset(a, 0).Value) > 15 Then
Range("D1").Offset(a, 0).Value = Mid(Range("F1").Offset(a, 0).Value, 7, 8)
Else
Range("D1").Offset(a, 0).Value = "19" & Mid(Range("F1").Offset(a, 0).V