使用For Next循环将date格式转换为500行以上

我需要从现有格式24/01/2016到24.01.2016将列“C”中的date（直到最后一行）转换为结果必须是date格式。

我目前的代码是：

LastRow9 = ws5.Cells(Rows.Count, "C").End(xlUp).Row For X9 = 1 To LastRow9 searchvalue = Cells(X9, "C").Value Answer = Split(searchvalue, "/") ws5.Cells(X9, "A").Value = Answer ws5.Cells(X9, "A").Value = Format(Answer, "dd.mm.yyyy") Next X9 

我得到的答案是30.12.1899有点偏离标准

Answer 1

尝试更改Range.NumberFormat属性 。

 with ws5 .range(.cells(1, "C"), .Cells(Rows.Count, "C").End(xlUp)).NumberFormat = "dd.mm.yyyy" end with