[已解决]如何取到日期

billyzhang0609

如附件，如何取到这一列的日期，显示在B列

最佳答案

月排行榜 / 总排行榜

dsmch

2015-3-3 17:09

1. Sub Macro1()
   
2. Dim arr, i&
   
3. [b:b] = ""
   
4. arr = Range("a1").CurrentRegion
   
5. For i = 1 To UBound(arr)
   
6.     arr(i, 1) = Day(arr(i, 1))
   
7. Next
   
8. Range("b1").Resize(i - 1) = arr
   
9. End Sub

复制代码

跳转到最佳答案楼层

billyzhang0609

只要日期，不要月，不要年

dsmch

1. Sub Macro1()
   
2. Dim arr, i&
   
3. [b:b] = ""
   
4. arr = Range("a1").CurrentRegion
   
5. For i = 1 To UBound(arr)
   
6.     arr(i, 1) = Day(arr(i, 1))
   
7. Next
   
8. Range("b1").Resize(i - 1) = arr
   
9. End Sub

复制代码

hupin6331

billyzhang0609 发表于 2015-3-3 17:02
只要日期，不要月，不要年

B1=DAY(A1)   下拉

baksy

附件

billyzhang0609

dsmch 发表于 2015-3-3 17:09

收藏你的代码了！谢谢！

billyzhang0609

hupin6331 发表于 2015-3-3 17:19
B1=DAY(A1)   下拉

我忘记还有day（）函数了。

billyzhang0609

baksy 发表于 2015-3-3 20:47
附件

多谢指导~