将冒号插入字符串中的数字

Question

我在Excel电子表格中有大约300个字符串.

每个都有不同的长度,但都采取相同的形式:

0033",@"0103",@"0133",@"0203",@"0233", nil

我需要在每个数字的中心添加冒号,例如上面的示例将变为:

00:33",@"01:03",@"01:33",@"02:03",@"02:33", nil

我已经研究了各种VBA函数,但我找不到任何可以在字符串中添加字符的函数.也许在Excel中有一种更简单的方法可以做到这一点？

Answer 1

在模块中添加此功能.

Function InsertColon(ByVal original As String) As String
    Dim re As Object
    Set re = CreateObject("vbscript.regexp")
    re.Pattern = "(\d\d)(\d\d)"
    re.Global = True
    InsertColon = re.Replace(original, "$1:$2")
End Function

现在您可以轻松地将其用作公式.例如,如果单元格A1包含您的原始字符串,并且您想要在单元格A2中显示格式化的值,则将以下公式放在单元格A2中:

=InsertColon(A1)