将字符插入不同位置的字符串

时间:2015-02-20 11:59:26

标签: string excel excel-vba text worksheet-function vba

我有一个类似于20141007023617的字符串。我想让它看起来像2014-10-07T02:36:17ZTZ对我来说非常重要。所以我也想插入它们。

所以回顾一下,

A1拥有此字符串20141007023617

B1应该保留此字符串2014-10-07T02:36:17Z

3 个答案:

答案 0 :(得分:8)

具有TEXT功能的解决方案:

=TEXT(A1,"0000-00-00\T00\:00\:00\Z")

答案 1 :(得分:5)

请尝试,录制宏并:

=LEFT(A1,4)&"-"&MID(A1,5,2)&"-"&MID(A1,7,2)&"T"&MID(A1,9,2)&":"&MID(A1,11,2)&":"&MID(A1,13,2)&"Z"

答案 2 :(得分:1)

除此之外,如果您想使用VBA,您可以使用以下代码。无论何时运行此代码,它都会将结果写入下一列同一行。

Sub arranges()
Dim str As String


str = ActiveCell.Value

ActiveCell.Offset(0, 1).Value = Left(str, 4) & "-" & Mid(str, 5, 2) & "-" & Mid(str, 7, 2) _
                                & "T" & Mid(str, 9, 2) & ":" & Mid(str, 11, 2) & ":" & Mid(str, 13, 2) & "Z"

End Sub