改日期

Sub zh()

For i = 2 To Range("a65536").End(xlUp).Row
Range("b" & i) = DateSerial(Left(Range("a" & i), 4), Mid(Range("a" & i), 5, 2), Right(Range("a" & i), 2))   

   ‘dateserial(年，月，日）其中年为四位数的字符，月是两位，日是两位   left  取左边？位    mid是从

　　　　第几个字符开始 取几个，rigth  取右边几位。
Next
End Sub

 注释：把8位数字变成日期。

Sub zh1()

For i = 2 To Range("a65536").End(xlUp).Row
Range("b" & i) = DateSerial(Mid(Range("a" & i), 7, 4), Mid(Range("a" & i), 11, 2), Mid(Range("a" & i), 13, 2))
Next
End Sub

注释：把身份证变成日期。