根据身份证号码提取年龄是常见的数据处理需求，可通过以下方法实现：

一、Excel中提取年龄的常用方法

基础公式法

使用 `YEAR（TODAY（））-MID（身份证号单元格，7,4）` 计算年龄。其中：

- `MID（身份证号单元格，7,4）` 提取身份证第7-14位（出生年份）；

- `YEAR（TODAY（））` 获取当前年份；

- 该公式需手动拖动填充柄批量处理。

动态更新年龄

为避免手动修改年份，可将公式改为：

```excel

=YEAR(TODAY())-VALUE(MID(身份证号单元格,7,4))

```

这样年龄会随日期变化自动更新。

使用DATEDIF函数

通过 `DATEDIF（TEXT（MID（身份证号单元格，7,8）,"00-00-00"）,TODAY（）,"Y"）` 计算年龄，可避免手动输入年份。

分步提取函数

- 性别：`=IF（MOD（MID（身份证号单元格，17,1）,2）=1,"男","女"）`；

- 出生日期：`=TEXT（MID（身份证号单元格，7,8）,"00年00月00日"）`；

- 年龄：`=DATEDIF（出生日期单元格，TODAY（）,"Y"）&"岁"`。

二、使用Excel VBA实现批量处理

自定义函数提取年龄

```vba

Function GetAge(ID As String) As Integer

If Len(ID)=18 Then

GetAge = YEAR(TODAY()) - MID(ID,7,4)

Else

GetAge = -1

End If

End Function

```

通过定义函数，可快速为多行数据填充年龄。

VBA宏批量处理

以下代码可遍历A列身份证号，提取年龄并填充到B列：

```vba

Sub ExtractAge()

Dim ws As Worksheet

Set ws = ThisWorkbook.Sheets("Sheet5") ' 修改为实际工作表名称

Dim lastRow As Long

lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row

Dim i As Long

For i = 2 To lastRow

ws.Cells(i, 2).Value = GetAge(ws.Cells(i, 1).Value)

Next i

End Sub

```

运行宏后，B列将显示对应身份证号的年龄。

三、注意事项

日期格式转换：

提取的出生日期需转为日期格式，可通过 `DATEVALUE` 函数或右键设置单元格格式完成；

闰年处理：

年龄计算需考虑闰年差异，建议使用 `YEARFRAC` 函数精确计算；

数据验证：

建议添加条件判断，避免因格式错误导致计算失败。

通过以上方法，可高效地从身份证号码中提取年龄，并根据需求选择手动或批量处理方式。