当然,也可以使用VBA程序快速转换,程序代码如下: Sub Format_D()Dim iOn Error Resume Next '忽略运行过程中可能出现的错误Set mysheet1 = ThisWorkbook.Worksheets(Sheet1) '定义工作表Sheet1mysheet1.Columns(A:A).NumberFormatLocal = yyyy/mm/dd '设置成日期格式For i = 2 To 1000 '从第2行到1000行 If mysheet1.Cells(i, A) Then '如果单元格不是空白,则 mysheet1.Cells(i, A).Value = mysheet1.Cells(i, A).Value End IfNextEnd Sub 程序运行之后的结果如下: