excel知道身份证号码怎么提取出生

要从Excel中提取身份证号码中的出生日期，可以使用一些简单的函数和公式，如LEFT、MID、DATE等。具体步骤包括：确定身份证号码的位置、使用MID函数提取出生日期、通过DATE函数格式化日期、对提取结果进行验证。让我们详细讨论这些步骤。

一、确定身份证号码的位置

在Excel中，首先需要明确身份证号码所在的单元格位置。假设身份证号码位于A列，第一行开始。在这种情况下，我们可以在B列中提取出生日期。身份证号码的格式是固定的，因此我们可以通过公式进行提取。

二、使用MID函数提取出生日期

身份证号码的出生日期部分通常是从第7位到第14位，共8位数字（例如：19900101）。我们可以使用MID函数来提取这部分内容。

=MID(A1, 7, 8)

此公式从A1单元格的第7个字符开始，提取8个字符，也就是身份证号码中的出生日期部分。将这个公式应用到B列中，你会得到一个8位数字的字符串。

三、通过DATE函数格式化日期

虽然我们已经提取了出生日期，但为了使其更有用，我们需要将其转换为Excel能够识别的日期格式。可以使用DATE函数来完成这项任务。

=DATE(LEFT(MID(A1, 7, 8), 4), MID(MID(A1, 7, 8), 5, 2), RIGHT(MID(A1, 7, 8), 2))

这个公式分三步来解析提取的8位字符串：

使用LEFT函数提取前4位作为年份。
使用MID函数提取中间的2位作为月份。
使用RIGHT函数提取最后2位作为日期。

将这些部分组合到DATE函数中，Excel就能识别并格式化为日期。

四、对提取结果进行验证

在完成上述步骤后，我们需要验证提取的出生日期是否正确。可以通过检查几个样本数据，或者使用条件格式来标记异常值。

如何使用条件格式

选择包含提取出生日期的列。
点击“条件格式” -> “新建规则”。
选择“使用公式确定要设置格式的单元格”。
输入一个验证公式，例如：=AND(YEAR(B1) > 1900, YEAR(B1) < YEAR(TODAY()))。
设置一种格式，例如填充颜色，以便识别异常数据。

通过这种方法，可以快速发现并纠正可能的错误。

五、处理身份证号码的特殊情况

在实际操作中，可能会遇到一些特殊情况，比如身份证号码的前缀有空格，或者身份证号码不满18位。这些情况需要额外处理。

去除前后空格

使用TRIM函数可以去除身份证号码中的前后空格：

=TRIM(A1)

检查身份证号码的长度

可以使用LEN函数来检查身份证号码的长度，如果不满18位，则标记为错误：

=IF(LEN(A1)<>18, "错误", "")

六、使用VBA提高效率

对于处理大量数据，使用VBA（Visual Basic for Applications）可以提高效率。以下是一个示例VBA代码，用于从身份证号码中提取出生日期：

Sub ExtractBirthDate()
    Dim ws As Worksheet
    Dim rng As Range
    Dim cell As Range
    Dim idNum As String
    Dim birthDate As String
    Set ws = ThisWorkbook.Sheets("Sheet1")
    Set rng = ws.Range("A1:A" & ws.Cells(ws.Rows.Count, "A").End(xlUp).Row)
    For Each cell In rng
        idNum = Trim(cell.Value)
        If Len(idNum) = 18 Then
            birthDate = Mid(idNum, 7, 4) & "-" & Mid(idNum, 11, 2) & "-" & Mid(idNum, 13, 2)
            cell.Offset(0, 1).Value = birthDate
        Else
            cell.Offset(0, 1).Value = "错误"
        End If
    Next cell
End Sub

如何运行VBA代码

按ALT + F11打开VBA编辑器。
插入一个新模块。
将上述代码粘贴到模块中。
关闭VBA编辑器。
在Excel中按ALT + F8，选择“ExtractBirthDate”并运行。

这样，VBA代码会自动遍历A列的所有身份证号码，并在B列中输出出生日期。

七、处理不同格式的身份证号码

有些身份证号码可能会有不同的格式，例如15位的旧身份证号码。对于这种情况，我们需要调整公式和VBA代码以适应不同的格式。

处理15位身份证号码

15位身份证号码的出生日期部分是从第7位到第12位，共6位数字（例如：900101）。我们需要将这些6位数字转换为标准的8位格式。

=IF(LEN(A1)=15, DATE("19"&MID(A1, 7, 2), MID(A1, 9, 2), MID(A1, 11, 2)), DATE(LEFT(MID(A1, 7, 8), 4), MID(MID(A1, 7, 8), 5, 2), RIGHT(MID(A1, 7, 8), 2)))

这段公式通过判断身份证号码的长度来确定是15位还是18位，并分别处理。

更新VBA代码以处理15位身份证号码

Sub ExtractBirthDate()
    Dim ws As Worksheet
    Dim rng As Range
    Dim cell As Range
    Dim idNum As String
    Dim birthDate As String
    Set ws = ThisWorkbook.Sheets("Sheet1")
    Set rng = ws.Range("A1:A" & ws.Cells(ws.Rows.Count, "A").End(xlUp).Row)
    For Each cell In rng
        idNum = Trim(cell.Value)
        If Len(idNum) = 18 Then
            birthDate = Mid(idNum, 7, 4) & "-" & Mid(idNum, 11, 2) & "-" & Mid(idNum, 13, 2)
        ElseIf Len(idNum) = 15 Then
            birthDate = "19" & Mid(idNum, 7, 2) & "-" & Mid(idNum, 9, 2) & "-" & Mid(idNum, 11, 2)
        Else
            birthDate = "错误"
        End If
        cell.Offset(0, 1).Value = birthDate
    Next cell
End Sub

通过这种方式，VBA代码可以处理两种不同格式的身份证号码。

八、总结

提取身份证号码中的出生日期在Excel中并不复杂，只需要掌握一些基本的函数和公式即可。通过使用MID、LEFT、RIGHT、DATE等函数，可以轻松地从身份证号码中提取出生日期，并将其格式化为Excel识别的日期格式。对于处理大量数据，使用VBA可以显著提高效率。

通过本文介绍的方法，不仅可以准确地提取出生日期，还可以处理一些常见的特殊情况，如前后空格和不同格式的身份证号码。相信通过这些详细的步骤和示例代码，你可以在Excel中轻松处理身份证号码，并提取所需的出生日期信息。