Excel VBA 提取身份证出生年月代码

以下是使用 Excel VBA 提取身份证中出生年月的代码：

Sub ExtractIDCardDate()
    Dim idCard As String
    Dim birthDate As String
    idCard = Range("A1").Value ' 将身份证号码存储在变量 idCard 中
    birthDate = Mid(idCard, 7, 8) ' 从身份证号码中提取出生年月日，存储在变量 birthDate 中
    Range("B1").Value = birthDate ' 将出生年月日输出到 B1 单元格中
End Sub

注意：此代码仅适用于中国大陆的身份证号码，如果要适用于其他国家或地区的身份证号码，需要根据实际情况进行修改。