怎样使用VBA将日期格式转换为YYYY-MM-DD

福利蛋

lsc900707 发表于 2016-10-30 19:20
再看看，你还有没发现的东西吧？

Sub 转换格式()

Dim Arr1, Arr2, Arr3, i%, j%, t As Date
t = Timer
Arr1 = Range("C:C")
With Range("C:C")
    .Select
    .ClearContents
    Selection.NumberFormatLocal = "0_);[红色](0)"
    Selection.Font.Size = 9
    Selection = Arr1
End With

i = Cells(Rows.Count, "B").End(xlUp).Row
For j = 2 To i
    Cells(j, "B") = CDate(Cells(j, "B"))
Next

Arr2 = Range("B:B")
With Range("B:B")
    .Select
    .ClearContents
    Selection.NumberFormatLocal = "YYYY-MM-DD"
    Selection.Font.Size = 9
    Selection = Arr2
End With

i = Cells(Rows.Count, "A").End(xlUp).Row
For j = 2 To i
    Cells(j, "A") = CDate(Cells(j, "A"))
Next
Arr3 = Range("A:A")
With Range("A:A")
    .Select
    .ClearContents
    Selection.NumberFormatLocal = "YYYY-mm-dd"
    Selection.Font.Size = 9
    Selection = Arr3
End With


Application.ScreenUpdating = True

MsgBox "转换成功"



End Sub
真的只改了这里嘞。。。。

chxw68

1. Sub test()
   
2.   Dim r%, i%
   
3.   Dim arr, brr
   
4.   With Worksheets("A")
   
5.     r = .Cells(.Rows.Count, 1).End(xlUp).Row
   
6.     arr = .Range("a2:b" & r)
   
7.     ReDim brr(1 To UBound(arr), 1 To 2)
   
8.     For i = 1 To UBound(arr)
   
9.       For k = 1 To 2
   
10.         brr(i, k) = Mid(arr(i, k), 7, 4) & "-" & Mid(arr(i, k), 4, 2) & "-" & Left(arr(i, k), 2)
    
11.       Next
    
12.     Next
    
13.     .Range("g2").Resize(UBound(brr), 2) = brr
    
14.   End With
    
15. End Sub
    

复制代码

chxw68

没太明白楼主的意思，重新写了一段，看是否符合楼主要求。

lsc900707

chxw68 发表于 2016-10-30 19:35
没太明白楼主的意思，重新写了一段，看是否符合楼主要求。

褚老师，他的A\B列杂糅两种不同的日期格式，想同时转化成YYYY-MM-DD,格式

chxw68

lsc900707 发表于 2016-10-30 19:47
褚老师，他的A\B列杂糅两种不同的日期格式，想同时转化成YYYY-MM-DD,格式

那就不好办了，我没有仔细看。

lsc900707

chxw68 发表于 2016-10-30 19:51
那就不好办了，我没有仔细看。

是啊，数据不规范，问题不好办。呵呵。

Sunkenkoto

楼主你好，我今天也遇到了相同的问题，目前已找到方法。
对于yyyymmdd型日期想转换成yyyy.mm.dd的，可以用left、mid、right 分别取数并添加"."，转换成yyyy.mm.dd的文本格式，再用format语句转成日期类型。
举例：
for i = 2 to range("A2").end(xldown).row
   cells(i,"a") = left(cells(i,"a"),4) & "." & mid(cells(i,"a"),5,2) & "." & right(cells(i,"a"),2)
   cells(i,"a") = format(cells(i,"a"),"yyyy.mm.dd")
next i