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)

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

1 个答案: