excel表格中如何将日期转换成文本格式

Question

如题所述

Answer 1

正如楼上所言，你所设置的单元格原来还是文本格式，把它变为其他格式似乎无动于衷。如果设置成日期格式之后，再双击进入单元格，应该就可以了。

当然，也可以使用VBA程序快速转换，程序代码如下：

Sub Format_D()
Dim i
On Error Resume Next  '忽略运行过程中可能出现的错误
Set mysheet1 = ThisWorkbook.Worksheets("Sheet1") '定义工作表Sheet1

mysheet1.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 If
Next

End Sub

程序运行之后的结果如下：