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

Insert characters into string in different locations

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

回顾一下,

A1 保存这个字符串 20141007023617

B1 应该包含这个字符串 2014-10-07T02:36:17Z

请尝试录制宏并:

=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"

最重要的是,如果您想使用 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

具有TEXT函数的解决方案:

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