怎么把excel里身份证号导出年龄

导出Excel中的身份证号并计算年龄的方法包括：使用公式、使用VBA宏、使用Power Query。以下将详细介绍如何通过这三种方法实现这一目标。

一、使用公式

1.1 提取出生日期

首先，我们需要从身份证号中提取出生日期。中国大陆的身份证号通常有18位，出生日期位于第7到第14位。例如，身份证号“11010519491231002X”中的出生日期是“19491231”。

在Excel中，可以使用以下公式从身份证号中提取出生日期：

=DATE(MID(A2,7,4),MID(A2,11,2),MID(A2,13,2))

1.2 计算年龄

提取出生日期后，可以通过计算当前日期与出生日期之间的差异来得到年龄。使用以下公式计算年龄：

=DATEDIF(B2,TODAY(),"Y")

其中，B2是提取出生日期的单元格。DATEDIF函数用于计算两个日期之间的年数差。

1.3 公式完整示例

假设身份证号在A列，提取出生日期并计算年龄的完整公式如下：

B2: =DATE(MID(A2,7,4),MID(A2,11,2),MID(A2,13,2))
C2: =DATEDIF(B2,TODAY(),"Y")

二、使用VBA宏

2.1 创建VBA宏

VBA宏可以自动化这个过程。以下是一个示例VBA代码，用于从身份证号中提取出生日期并计算年龄：

Sub CalculateAge()
    Dim lastRow As Long
    Dim i As Long
    Dim idCard As String
    Dim birthDate As Date
    Dim age As Integer
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row
    For i = 2 To lastRow
        idCard = Cells(i, 1).Value
        birthDate = DateSerial(Mid(idCard, 7, 4), Mid(idCard, 11, 2), Mid(idCard, 13, 2))
        age = DateDiff("yyyy", birthDate, Date)
        If Month(birthDate) > Month(Date) Or (Month(birthDate) = Month(Date) And Day(birthDate) > Day(Date)) Then
            age = age - 1
        End If
        Cells(i, 2).Value = birthDate
        Cells(i, 3).Value = age
    Next i
End Sub

2.2 执行VBA宏

打开Excel工作簿。
按Alt + F11打开VBA编辑器。
插入一个新的模块，粘贴上述代码。
关闭VBA编辑器，返回Excel。
按Alt + F8运行宏“CalculateAge”。

三、使用Power Query

Power Query是Excel中的一个强大工具，可以用来提取和转换数据。

3.1 导入数据

选择包含身份证号的表格。
选择“数据”选项卡，然后点击“从表格/范围”。

3.2 添加自定义列

在Power Query编辑器中，执行以下步骤：

点击“添加列”选项卡，然后选择“自定义列”。
在“自定义列”对话框中，输入以下公式：

Date.FromText(Text.Middle([身份证号], 6, 8))

这将创建一个新的列，提取身份证号中的出生日期。

3.3 计算年龄

添加另一个自定义列，用于计算年龄：

Date.Year(DateTime.LocalNow()) - Date.Year([出生日期]) - if Date.From(DateTime.LocalNow()) < Date.From(Date.AddYears([出生日期], Date.Year(DateTime.LocalNow()) - Date.Year([出生日期]))) then 1 else 0

3.4 完成并加载数据

完成上述步骤后，点击“关闭并加载”将数据导入Excel。

以上三种方法都可以有效地从Excel中的身份证号导出年龄。选择哪种方法取决于您的具体需求和熟悉程度。使用公式适用于简单的需求，使用VBA宏适用于自动化需求，使用Power Query适用于数据处理和转换需求。