练习-公式使用

2019-07-21  本文已影响0人  A_rrow
Sub zhuanhua()
With Sheet1
    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))
    Next
End With
End Sub

运用 DateSerial进行日期转换


提取身份证中的生日

Sub tiqushengri()
With Sheet2
    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 With
End Sub

上一篇 下一篇

猜你喜欢

热点阅读