excel - 从出生日期计算年龄的 VBA 公式

Question

我有出生日期并想应用这个公式

=(YEAR(NOW())-YEAR(A2))

在 VBA 中计算整行日期的年龄

例如

      A           B
1  BornDate      Age
2  09.06.1991    28
3  02.07.1973
4
5

我的代码仅适用于前两个并且停止没有任何错误。

Sub btn_GetAge()

    Dim LastRow As Long

    With ThisWorkbook.Worksheets("Sheet1")
    LastRow = .Cells(.Rows.Count).End(xlUp).Row
    .Range("B2:B" & LastRow) = "=(YEAR(NOW())-YEAR(A1))"
    End With

End Sub

任何想法或选择不同的公式？

Answer 1

1)单元格需要一行和一列，例如A1 是细胞(1,1)

2)您的公式(最好指定属性)从第 2 行开始，但指的是 A1

Sub btn_GetAge()

Dim LastRow As Long

With ThisWorkbook.Worksheets("Sheet1")
    LastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
    .Range("B2:B" & LastRow).Formula = "=(YEAR(NOW())-YEAR(A2))"
End With

End Sub