excel - 在字符串中的数字中插入冒号

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)