在Excel中如何文本格式的日期（如20110220）转换为日期格式

Question

如题所述

Answer 1

一，文本转换为文本的，选择整列，菜单-编辑-查找替换：查找
-
，替换里什么也不打，替换全部，如图

二、建议自动转换成excel可认识的日期格式，操作如下：

数据-分列-下一步-下一步-（步骤3的时候）选择日期型的，如图

然后还是全选整列的时候，右键，单元格格式-数字-自定义，键入代码
yyyymmdd ，可以起到一样的20100102这样的效果，
如图

Answer 2

可以使用函数转化，如果数据在A1：A100中，B1中输入
=--TEXT(A1,"#-00-00")
B1
中单元格格式设置为日期格式，B1公式用自动填充柄下拉。
也可以使用分列，选中该列，数据，分列，下一步，下一步，日期，后面选择一种日期格式，如YMD，完成，就可以了。

Answer 3

1楼的方法好，2楼的方法也可以。
1.以使用函数转化，如果数据在A1：A100中，B1中输入
=TEXT(A1,"#-00-00")
B1
中单元格格式设置为日期格式，B1公式用自动填充柄下拉。
2.也可以使用分列，选中该列，数据，分列，下一步，下一步，日期，后面选择一种日期格式，如YMD，完成，就可以了。
3.数据在A1：A100中，B1中输入
=(left(a1,4)&"-"&mid(a1,4,2)&"-"&right(a1,2))

Answer 4

假设数据在A列
如果可以在B列生成，可用函数=TEXT(A1,"0-00-00")实现要求
如果要在本列中实现，运行
以下宏即可实现
Sub
aa()
Dim
iR&,
x&
Dim
arr
iR
=
Range("A65536").End(xlUp).Row
arr
=
Range("A1:A"
&
iR).Value
For
x
=
1
To
UBound(arr)
arr(x,
1)
=
Format(arr(x,
1),
"0-00-00")
Next
x
Range("A1").Resize(UBound(arr))
=
arr
End
Sub