练习-公式使用

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

---