[已解决]求助格式转换的VBA

syt188702

从系统中导出的日期格式是文本格式，请大师帮忙用VBA做一下，（用数据中的分列太麻烦了）

最佳答案

月排行榜 / 总排行榜

lisachen

2012-9-23 10:16

1. Sub test()
   
2.     For x = 2 To Range("a65536").End(3).Row
   
3.         For y = 1 To 3
   
4.             Cells(x, y) = Format(Cells(x, y), "0000-##-##")
   
5.         Next y
   
6.     Next x
   
7. End Sub
   

复制代码

如果直接在原单元格改，就用这个

跳转到最佳答案楼层

lisachen

文本格式转日期格式.rar (10.02 KB, 下载次数: 10)

2012-9-23 10:14 上传

点击文件名下载附件

lisachen

1. Sub test()
   
2.     For x = 2 To Range("a65536").End(3).Row
   
3.         For y = 1 To 3
   
4.             Cells(x, y) = Format(Cells(x, y), "0000-##-##")
   
5.         Next y
   
6.     Next x
   
7. End Sub
   

复制代码

如果直接在原单元格改，就用这个

fzh2618182

有时候也会碰到这种情况，曾用公式转换过。直接在原单元格中改更方便。学习了，谢谢各位！

syt188702

lisachen 发表于 2012-9-23 10:16
如果直接在原单元格改，就用这个

谢谢大师，还想请教一下，日期数据向右对齐，水平居中

小花鹿

如果数据量很大，还是数组好：
Sub test()
Dim ar, i&, j&
ar = [a1].CurrentRegion
For i = 2 To UBound(ar)
    For j = 1 To 3
        ar(i, j) = Format(ar(i, j), "0000-00-00")
    Next j
Next i
Columns("a:c").ClearContents
[a1].Resize(i - 1, 3) = ar
End Sub