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

要将Excel中的身份证号导出年龄，可以通过以下几种方式：公式计算、使用VBA代码、第三方插件。 其中，公式计算是一种常用且便捷的方法。下面将详细描述如何使用公式计算来导出年龄。

一、公式计算

通过公式计算可以快速从身份证号中提取出生日期并计算出年龄。身份证号的前六位表示地区代码，接着是8位的出生日期，最后是4位的随机码。我们可以通过以下步骤来实现：

提取出生日期： 使用MID函数提取身份证号中的出生日期。
计算当前年龄： 使用DATEDIF函数计算出生日期到当前日期的年数。

1. 提取出生日期

首先，需要从身份证号中提取出生日期。假设身份证号在A列，从A2开始。可以使用MID函数来提取年份、月份和日期，然后合并为完整的日期格式。

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

这里，MID函数的参数分别表示从第7位开始提取4位数字作为年份，从第11位开始提取2位数字作为月份，从第13位开始提取2位数字作为日期。然后使用DATE函数将这些数字组合成一个日期格式。

2. 计算当前年龄

提取到出生日期后，可以使用DATEDIF函数来计算年龄。

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

DATEDIF函数的参数分别表示起始日期、结束日期和计算的单位（"Y"表示年）。

二、VBA代码

除了使用公式，还可以使用VBA代码来实现。VBA代码可以更加灵活地处理数据，适用于需要对大量数据进行批量处理的场景。

1. 打开VBA编辑器

在Excel中按下 Alt + F11 打开VBA编辑器，然后插入一个新模块。

2. 输入代码

在新模块中输入以下代码：

Sub CalculateAge()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim idNumber As String
    Dim birthDate As Date
    Dim age As Integer
    Set ws = ThisWorkbook.Sheets("Sheet1") ' 根据需要修改工作表名称
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    For i = 2 To lastRow
        idNumber = ws.Cells(i, 1).Value
        If Len(idNumber) = 18 Then
            birthDate = DateSerial(Mid(idNumber, 7, 4), Mid(idNumber, 11, 2), Mid(idNumber, 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
            ws.Cells(i, 2).Value = age
        End If
    Next i
End Sub

这段代码会遍历A列中的所有身份证号，提取出生日期并计算年龄，然后将年龄写入B列。

三、第三方插件

如果你不熟悉公式和VBA代码，也可以使用第三方插件来实现。许多Excel插件都提供了数据处理和计算功能，可以方便地从身份证号中提取信息。

1. 安装插件

在Excel中可以通过“插入”选项卡中的“获取加载项”来搜索并安装合适的插件。

2. 使用插件

安装好插件后，按照插件的使用说明进行操作。通常这些插件会提供一个界面，让你选择数据列并设置需要提取的信息。

总结

无论是使用公式、VBA代码还是第三方插件，都可以有效地从身份证号中导出年龄。公式计算适合小规模数据处理，VBA代码适合批量处理，第三方插件则适合不熟悉Excel编程的用户。