改日期
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
注释:把身份证变成日期。