excel表格输入身份证号怎么生成年龄

在Excel表格中输入身份证号后，可以通过以下几种方法生成年龄：使用公式计算、使用VBA代码、使用Power Query。

1. 使用公式计算：

通过Excel公式提取身份证号中的出生日期，然后计算年龄。具体方法包括使用MID函数、DATE函数、YEAR函数等。

详细描述：

假设身份证号在A列，从A2开始。可以在B2中输入以下公式：

=IF(LEN(A2)=18, YEAR(TODAY())-MID(A2,7,4) - IF(MONTH(TODAY())*100 + DAY(TODAY()) < MID(A2,11,2)*100 + MID(A2,13,2),1,0), "")

这个公式的作用是从身份证号中提取出生年份，并根据当前日期计算年龄。如果身份证号长度为18位，公式会提取第7到第10位作为出生年份，第11到第12位作为出生月份，第13到第14位作为出生日期，然后根据当前日期计算实际年龄。

一、使用公式计算

1.1 提取出生日期

从身份证号中提取出生日期是计算年龄的第一步。中国大陆的身份证号为18位，其中第7到第14位为出生日期。可以使用MID函数来提取这一部分信息。假设身份证号在A列，从A2开始，可以在B2中输入以下公式来提取出生日期：

=MID(A2, 7, 8)

这个公式会提取第7到第14位的字符，结果是一个8位的字符串，例如"19900101"。

1.2 将出生日期转换为日期格式

提取到的出生日期是一个字符串，需要将其转换为Excel可识别的日期格式。可以使用DATE函数：

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

这个公式将提取的年份、月份和日期分别作为DATE函数的参数，转换为日期格式。

1.3 计算年龄

最后一步是计算年龄。可以使用YEAR函数和TODAY函数来实现：

=YEAR(TODAY()) - YEAR(DATE(MID(A2, 7, 4), MID(A2, 11, 2), MID(A2, 13, 2))) - IF(MONTH(TODAY())*100 + DAY(TODAY()) < MID(A2, 11, 2)*100 + MID(A2, 13, 2), 1, 0)

这个公式会计算当前年份与出生年份的差值，并根据当前日期和出生日期的对比来调整年龄。

二、使用VBA代码

如果需要处理大量数据，可以使用VBA代码来提高效率。以下是一个示例代码，用于从身份证号中提取出生日期并计算年龄：

2.1 插入VBA代码

打开Excel文件，按Alt + F11打开VBA编辑器。
在“插入”菜单中选择“模块”。
将以下代码粘贴到模块窗口中：

Function GetAgeFromID(ID As String) As Integer
    Dim BirthYear As Integer
    Dim BirthMonth As Integer
    Dim BirthDay As Integer
    Dim BirthDate As Date
    Dim Age As Integer
    If Len(ID) = 18 Then
        BirthYear = CInt(Mid(ID, 7, 4))
        BirthMonth = CInt(Mid(ID, 11, 2))
        BirthDay = CInt(Mid(ID, 13, 2))
        BirthDate = DateSerial(BirthYear, BirthMonth, BirthDay)
        Age = Year(Date) - Year(BirthDate)
        If Month(Date) < BirthMonth Or (Month(Date) = BirthMonth And Day(Date) < BirthDay) Then
            Age = Age - 1
        End If
        GetAgeFromID = Age
    Else
        GetAgeFromID = -1 ' 返回-1表示身份证号无效
    End If
End Function

2.2 使用自定义函数

返回到Excel表格，在需要计算年龄的单元格中输入以下公式：

=GetAgeFromID(A2)

这个自定义函数会根据身份证号计算年龄，并返回结果。

三、使用Power Query

Power Query是Excel中的数据处理工具，可以用于复杂的数据转换和计算。以下是使用Power Query计算年龄的步骤：

3.1 加载数据到Power Query

选择包含身份证号的表格区域。
在“数据”选项卡中，点击“从表格/范围”。
在弹出的对话框中，确认选择的区域，并点击“确定”。

3.2 添加自定义列

在Power Query编辑器中，点击“添加列”选项卡，然后选择“自定义列”。在公式框中输入以下内容：

let
    BirthDate = #datetime(Text.Middle([身份证号], 6, 4), Text.Middle([身份证号], 10, 2), Text.Middle([身份证号], 12, 2), 0, 0, 0),
    Age = Date.Year(DateTime.LocalNow()) - Date.Year(BirthDate) - if Date.From(DateTime.LocalNow()) < Date.AddYears(BirthDate, Date.Year(DateTime.LocalNow()) - Date.Year(BirthDate)) then 1 else 0
in
    Age

这个公式会从身份证号中提取出生日期，并计算年龄。

3.3 应用更改并加载数据

在Power Query编辑器中，点击“关闭并加载”，将计算结果返回到Excel表格中。

通过以上三种方法，可以在Excel中轻松实现从身份证号生成年龄。使用公式计算适合简单的情况，使用VBA代码适合大批量数据处理，使用Power Query适合复杂的数据转换和处理需求。根据实际需求选择合适的方法，可以提高工作效率和准确性。