[已解决]请老师给我编一个在b列算出岁数的vba。以2011年8月31止。学习查找了好长时间，没法解

excelhao9712 · 发表于 2011-12-23 08:00

请老师给我编一个在b列算出岁数的vba。以2011年8月31止。学习查找了好长时间，没法解决。a列数所过万，用datedif函数excel运行太慢。请教第一个问题，很期待！
a列 b列
1964-9-1
1967-1-1
1989-1-1
1991-5-1
1941-1-1
1966-2-1
1965-6-1
1988-11-1
……
　

最佳答案

月排行榜 / 总排行榜

yuhe0008

2011-12-23 08:00

nl.rar (7.98 KB, 下载次数: 23)

yuhe0008 · 发表于 2011-12-23 08:00

这个最佳答案由 yuhe0008 给出，感谢 yuhe0008 的回答。

单击隐藏图章

nl.rar (7.98 KB, 下载次数: 23)

macky591 · 发表于 2011-12-23 09:02

本帖最后由 macky591 于 2011-12-23 09:06 编辑

VBA年龄.rar (7.38 KB, 下载次数: 23)

wuxingai · 发表于 2011-12-23 09:41

Sub aa()
Dim arr, i As Long, dt As Date
dt = Date
arr = Range("A3:B" & Range("A65536").End(xlUp).Row)
For i = 1 To UBound(arr)
arr(i, 2) = VBA.DateDiff("yyyy", arr(i, 1), dt)
Next i
Range("B3").Resize(UBound(arr), 1) = Application.Index(arr, , 2)
End Sub

zsx720629 · 发表于 2011-12-23 09:51

这个也许是你想要的

zyouong · 发表于 2011-12-23 09:54

这个也要用VBA，小题大作。

zyouong · 发表于 2011-12-23 10:08

=int((40786-(A2))/365)，几万行也用不了一两秒。

excelhao9712 · 发表于 2011-12-23 14:59

谢谢各位老师，每一次提问就得到这么多帮助！

excelhao9712 · 发表于 2011-12-23 22:32

经过老师们指导，我加了修改，得到满意结果：
1恒星年等于365.25636日
1回归年 = 365.24219879日
Sub 算岁数vba()
Dim i&
For i = 1 To Sheet1.[a65536].End(xlUp).Row
Cells(i, 2) = Int((40786 - Cells(i, 1)) / 365.24219879)
Next
End Sub

13350558 · 发表于 2011-12-24 21:37

还有一个简单的
用分列功能提出年（格式选文本）
在插入一列单元格内容为2011
2边做减法

虽然是笨办法但是也能实现

		自动登录	找回密码
密码			注册

[已解决]请老师给我编一个在b列算出岁数的vba。以2011年8月31止。学习查找了好长时间，没法解

最佳答案

相关帖子