[已解决]如何将2012.7.5这种格式转成2012.07.05

hdxjd

有个表格 内容很多，里面包括日期的格式很多，例如：，现在想把它变成标准的2012.07.05这种格式，如何用公示完成。如果一个一个改，有上千条，非把我累死。谢谢

最佳答案

月排行榜 / 总排行榜

zyouong

2012-9-20 21:34

跳转到最佳答案楼层

xuyouxm

1. 01.   =LEFT(I22,4)&"-"&TEXT(LEFT(RIGHT(I22,3),1),"00")&"-"&TEXT(RIGHT(I22,1),"00")

复制代码

把I22单元格改成你自已的单元格.

windimi007

请测试！

1. =TEXT(SUBSTITUTE(A1,".","-"),"e.mm.dd")

复制代码

zyouong

先替换.为-,再将格式自定义为yyyymmdd

zyouong

mary085

20070725
20120502
到这一步后，下面一步如何操作，0变为小数点了呢？

mary085

zyouong 发表于 2012-9-20 20:18

20070725
20120502
到这一步后，下面一步如何操作，0变为小数点了呢？

sadhare

可在VBA的模块中复制下列自定义函数
Function changedate(source As Range)
Dim result As String
If IsDate(source) Then
result = WorksheetFunction.Text(Year(source), "0000") & "." & WorksheetFunction.Text(Month(source), "00") & _
"." & WorksheetFunction.Text(Day(source), "00")

Else
Dim n1, n2 As Integer
Dim str1, str2, str3 As String
n1 = WorksheetFunction.Find(".", source)
n2 = WorksheetFunction.Find(".", source, n1 + 1)
str1 = Left(source, n1 - 1)
str2 = Mid(source, n1 + 1, n2 - n1)
str3 = Right(source, Len(source) - n2)
result = WorksheetFunction.Text(str1, "0000") & "." & WorksheetFunction.Text(str2, "00") & "." & _
WorksheetFunction.Text(str3, "00")
End If
changedate = result

End Function
假定B列为包括各种格式日期的源单元格，C列为转换日期后的目的单元格
可在目的单元格C3中输入公式=changedate(b3)即可
其中b3为包含日期的源单元格，再向下拖拉公式即可

zhoucs00

1. =SUBSTITUTE(TEXT(SUBSTITUTE(A2,".","-"),"YYYY-MM-DD"),"-",".")我自己试了下。可以。。。望采纳

复制代码

zyouong