怎样用vba对时间+日期格式进行批量修改

39660519

yagoo586 发表于 2016-1-7 11:05
Sub DateTime() 'by 论坛Yaong_3，39660519
    Dim rng As Range
    Set rng = Range("a2", Cells(Rows ...

因为你A列本身就是时间格式的日期，不用VBA，直接设置A列格式就可以

Yaong_3

1. Sub DateTime()
   
2. Dim rng As Range
   
3. For Each rng In Selection
   
4. rng = Format(rng, "yyyy-mm-dd hh:mm:ss")
   
5. rng.NumberFormatLocal = "yyyy-mm-dd hh:mm:ss"
   
6. Next
   
7. End Sub

复制代码

这回对了吗?

yagoo586

39660519 发表于 2016-1-7 11:24
因为你A列本身就是时间格式的日期，不用VBA，直接设置A列格式就可以

直接在A列设置单元格格式好像改不了，我这边右键设置单元格格式，自定义格式，yyyy-mm-dd hh:mm:ss确实实现不了

yagoo586

Yaong_3 发表于 2016-1-7 11:28
这回对了吗?

嗯，对的，十分感谢您！

39660519

yagoo586 发表于 2016-1-7 11:33
直接在A列设置单元格格式好像改不了，我这边右键设置单元格格式，自定义格式，yyyy-mm-dd hh:mm:ss确实实 ...

啊。。。。可以用VBA来修改格式那手动修改格式也应该不是问题才对，要不就是你A列的内容是文本，要不就是.......我也不知道了，不上附件不好说

39660519

yagoo586 发表于 2016-1-7 11:33
直接在A列设置单元格格式好像改不了，我这边右键设置单元格格式，自定义格式，yyyy-mm-dd hh:mm:ss确实实 ...

我看了你的附件了，A列内容是文本格式的日期，所以要先转换成时间格式的日期

yagoo586

Yaong_3 发表于 2016-1-7 11:28
这回对了吗?

后来我多次运行后发现1月，10月等变换后还是有错误，我把附件传上来，请您帮我看看。

日期	转换过部分错误值	正确值
01/01/2015 04:38:53	2015-01-01 04:38:53
02/01/2015 10:38:53	2015-02-01 10:38:53	2015-01-02 10:38:53
10/01/2015 16:38:53	2015-10-01 16:38:53	2015-01-10 10:38:53
21/01/2015 16:38:54	2015-01-21 16:38:54
01/09/2015 04:38:53	2015-01-09 04:38:53	2015-09-01 04:38:53
02/09/2015 10:38:53	2015-02-09 10:38:53	2015-09-20 10:38:53
10/09/2015 16:38:53	2015-10-09 16:38:53	2015-09-10 16:38:53
21/09/2015 16:38:54	2015-09-21 16:38:54
30/09/2015 16:38:55	2015-09-30 16:38:55
01/10/2015 04:38:53	2015-01-10 04:38:53	2015-10-01 04:38:53
02/10/2015 10:38:53	2015-02-10 10:38:53	2015-10-02 10:38:53
10/10/2015 16:38:53	2015-10-10 16:38:53
21/10/2015 16:38:54	2015-10-21 16:38:54
30/10/2015 16:38:54	2015-10-30 16:38:54
01/12/2015 04:38:53	2015-01-12 04:38:53	2015-12-01 04:38:53
02/12/2015 10:38:53	2015-02-12 10:38:53	2015-12-02 10:38:53
10/12/2015 16:38:53	2015-10-12 16:38:53	2015-12-10 04:38:53
21/12/2015 16:38:54	2015-12-21 16:38:54
30/12/2015 16:38:54	2015-12-30 16:38:54

39660519

yagoo586 发表于 2016-1-8 16:24
后来我多次运行后发现1月，10月等变换后还是有错误，我把附件传上来，请您帮我看看。

你原数据的格式是日/月/年是吗？

yagoo586

39660519 发表于 2016-1-8 16:32
你原数据的格式是日/月/年是吗？

嗯，日/月/年  时间这个格式，后来画图发现图很乱，才发现数据处理不对

39660519

yagoo586 发表于 2016-1-8 16:34
嗯，日/月/年  时间这个格式，后来画图发现图很乱，才发现数据处理不对

我的是03版，你自己把公式复制过去，系统默认的日期格式为月/日/年或年/月/日，所以公式把你<=12的日当月了
Sub 转换日期格式()
    ARR = Range("a2", Cells(Rows.Count, "a").End(xlUp))
    For A = 1 To UBound(ARR)
        NR = ARR(A, 1)
        YY = Mid(NR, 7, 4)
        MM = Mid(NR, 4, 2)
        DD = Mid(NR, 1, 2)
        H = Mid(NR, 11, 12)
        ARR(A, 1) = CDate(YY & "-" & MM & "-" & DD & H)
    Next A
    [A2].Resize(UBound(ARR), 1) = ARR
    Range("a2", Cells(Rows.Count, "a").End(xlUp)).NumberFormatLocal = "yyyy-mm-dd hh:mm:ss"
End Sub