excel里身份证怎么提取出生年月日

在Excel中提取身份证中的出生年月日可以通过使用MID函数、DATE函数、TEXT函数等多种方式来实现。具体方法包括：使用MID函数提取日期字符串、将字符串转换为日期格式、使用DATE函数组合日期等。下面我们将详细解释一种使用MID函数和DATE函数的方法。

身份证号码通常是18位，其中第7到14位表示出生日期。例如，身份证号码“123456199001012345”中的“19900101”就是出生日期。通过MID函数提取出生日期并使用DATE函数转换为日期格式，我们可以实现这一操作。

一、使用MID函数提取出生日期字符串

MID函数可以用来从一个文本字符串中提取特定位置的一段文本。例如，假设身份证号码在单元格A1中，我们可以使用以下公式提取出生年月日：

=MID(A1, 7, 8)

这个公式的意思是从A1单元格中的第7位开始，提取8个字符。

二、将字符串转换为日期格式

提取出的出生日期字符串是“YYYYMMDD”的格式，我们可以使用DATE函数将其转换为日期格式。假设提取出的字符串在单元格B1中，我们可以使用以下公式：

=DATE(LEFT(B1, 4), MID(B1, 5, 2), RIGHT(B1, 2))

这个公式的意思是使用LEFT函数提取年份（前4位），使用MID函数提取月份（第5和第6位），使用RIGHT函数提取日期（最后2位），然后使用DATE函数将这些部分组合成一个日期。

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

如果需要将日期格式化为特定的格式，例如“YYYY-MM-DD”，可以使用TEXT函数。假设日期在单元格C1中，我们可以使用以下公式：

=TEXT(C1, "yyyy-mm-dd")

这个公式将日期格式化为“YYYY-MM-DD”的文本格式。

四、完整的公式

将上述步骤合并成一个公式，假设身份证号码在单元格A1中，可以使用以下公式直接提取并格式化出生日期：

=TEXT(DATE(LEFT(MID(A1, 7, 8), 4), MID(MID(A1, 7, 8), 5, 2), RIGHT(MID(A1, 7, 8), 2)), "yyyy-mm-dd")

这个公式将从身份证号码中提取并格式化出生日期为“YYYY-MM-DD”。

五、应用举例

假设我们有一列身份证号码，需要批量提取出生日期，可以将上述公式应用到每个单元格。例如：

在B1单元格中输入公式：

=MID(A1, 7, 8)

在C1单元格中输入公式：

=DATE(LEFT(B1, 4), MID(B1, 5, 2), RIGHT(B1, 2))

在D1单元格中输入公式：

=TEXT(C1, "yyyy-mm-dd")

然后将这些公式复制到其他单元格，就可以批量提取出生日期。

六、自动化提取出生日期

对于大数据量的操作，可以使用VBA宏自动化提取出生日期。以下是一个简单的VBA宏示例：

Sub ExtractBirthDate()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Set ws = ThisWorkbook.Sheets("Sheet1")  ' 修改为你的工作表名称
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    For i = 2 To lastRow  ' 从第二行开始，假设第一行为表头
        Dim idNum As String
        Dim birthDate As String
        idNum = ws.Cells(i, 1).Value
        birthDate = Mid(idNum, 7, 8)
        ws.Cells(i, 2).Value = DateSerial(Left(birthDate, 4), Mid(birthDate, 5, 2), Right(birthDate, 2))
    Next i
End Sub

这个VBA宏将从第2行开始，逐行读取身份证号码，并将提取的出生日期填入第2列。

七、处理身份证号码中的异常情况

在实际操作中，可能会遇到一些异常情况，例如身份证号码不完整或格式错误。我们可以在公式或VBA宏中添加错误处理来应对这些情况。例如，在VBA宏中可以使用以下代码来处理错误：

On Error Resume Next
birthDate = Mid(idNum, 7, 8)
If Len(birthDate) = 8 Then
    ws.Cells(i, 2).Value = DateSerial(Left(birthDate, 4), Mid(birthDate, 5, 2), Right(birthDate, 2))
Else
    ws.Cells(i, 2).Value = "Error"
End If
On Error GoTo 0

这种方法可以在遇到错误时将单元格标记为“Error”，以便后续处理。

八、总结

通过使用MID函数提取日期字符串、使用DATE函数将其转换为日期格式、使用TEXT函数格式化日期，我们可以在Excel中轻松提取身份证中的出生年月日。 这种方法不仅适用于单个身份证号码的提取，还可以批量处理大量数据，并通过VBA宏实现自动化。在实际操作中，需要注意处理身份证号码中的异常情况，以确保数据的准确性和完整性。