第1个回答 2011-02-23
可以使用函数转化,如果数据在A1:A100中,B1中输入
=--TEXT(A1,"#-00-00")
B1
中单元格格式设置为日期格式,B1公式用自动填充柄下拉。
也可以使用分列,选中该列,数据,分列,下一步,下一步,日期,后面选择一种日期格式,如YMD,完成,就可以了。
第2个回答 2011-02-25
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))
第3个回答 2011-02-27
假设数据在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