2

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

每个都有不同的长度，但都采用相同的形式：

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

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

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

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

4

1 回答 1

6

在模块中添加此功能。

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)
于 2012-05-17T15:27:40.927 回答