改日期
Posted lyzifan
tags:
篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了改日期相关的知识,希望对你有一定的参考价值。
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
注释:把身份证变成日期。
以上是关于改日期的主要内容,如果未能解决你的问题,请参考以下文章