在不同位置将字符插入字符串
Insert characters into string in different locations
我有一个看起来像这样的字符串 20141007023617
。我想让它看起来像这样 2014-10-07T02:36:17Z
。 T
和 Z
对我来说非常重要。所以我也想插入它们。
回顾一下,
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")
我有一个看起来像这样的字符串 20141007023617
。我想让它看起来像这样 2014-10-07T02:36:17Z
。 T
和 Z
对我来说非常重要。所以我也想插入它们。
回顾一下,
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")