如何用VBA语句表示?

CrystalChiu

情况一： 现有一单元格内容为" 14/12/2003" 需要将其转为日期格式(如: yyyy-mm-dd)。应如何用VBA语句表示？
情况二：现有一列数据，而这列数据的格式并不一致，可能是文本（如14/12/2003)，也可能是日期格式（如 2003-12-14)。需要作出以下判断，如为日期格式则格式保持不变，如为文本格式则需要转化为日期格式。应如何用VBA语句表示？
详情如附件所示。谢谢各位高手帮忙！万分感谢！

ggsmart

问题一：试试程序。

1. 
   
2. Sub ggsmart()
   
3.     Dim i As Long
   
4.     For i = 2 To Range("A1").CurrentRegion.Rows.Count
   
5.         Cells(i, "B").Value = Format(Cells(i, "A").Value, "yyyy/mm/dd")
   
6.     Next
   
7. End Sub
   

复制代码

问题二：
可以先用TypeName函数先判断数据类型，再处理。

CrystalChiu

ggsmart 发表于 2012-10-17 16:16
问题一：试试程序。问题二：
可以先用TypeName函数先判断数据类型，再处理。

非常感谢你的帮忙