提取年份的问题

大灰狼1976

可能的，因为你的数据是什么样的我看不到，有可能是文本型的日期。所以不管什么求助，最好上附件，大家都轻松一点。

FXZ2015

麻烦老师，这是附件。

FXZ2015

大灰狼1976 发表于 2019-10-17 15:30
可能的，因为你的数据是什么样的我看不到，有可能是文本型的日期。所以不管什么求助，最好上附件，大家都轻 ...

老师，我上传附件了。

月关

你这个哪用得着代码，快速填充了解一下

大灰狼1976

FXZ2015 发表于 2019-10-17 16:21
老师，我上传附件了。

1. Sub test()
   
2. [A3:A302] = ["=year("&A3:A302&")"]
   
3. [A3:A302] = [A3:A302].Value
   
4. [A3:A302].NumberFormat = "General"
   
5. End Sub

复制代码

小花鹿

你这是用公式的思路来写VBA代码                                                                                               

cui26896

都要走过这种弯路的。

FXZ2015

月关 发表于 2019-10-17 16:32
你这个哪用得着代码，快速填充了解一下

老师，我要在另一个表里提取，这只是我表的一部分，只能用代码解决，谢谢老师。

FXZ2015

大灰狼1976 发表于 2019-10-17 16:53

老师，我是想在辅助表里提取明细表里的数据，代码怎么写。谢谢老师。

大灰狼1976

FXZ2015 发表于 2019-10-18 07:05
老师，我是想在辅助表里提取明细表里的数据，代码怎么写。谢谢老师。

1. Sub test()
   
2. Dim arr
   
3. arr = Sheets(1).[a3].CurrentRegion
   
4. For i = 1 To UBound(arr)
   
5.   arr(i, 1) = Year(arr(i, 1))
   
6. Next i
   
7. Sheets(2).[c2].Resize(UBound(arr)) = arr
   
8. End Sub

复制代码