我有出生日期并想应用此公式
=(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
有什么想法或选择不同的公式吗?
本文收集自互联网,转载请注明来源。
如有侵权,请联系 [email protected] 删除。
我来说两句