将冒号插入string中的数字

我在Excel电子表格中有300个string。

每个都有不同的长度，但都采取相同的forms：

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

我需要添加冒号到每个数字的中心，例如上面的例子会变成：

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

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

Answer 1

在模块中添加此function。

 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包含您的原始string，并且您想要单元格A2中显示格式的值，然后将下面的公式单元格A2：

 =InsertColon(A1)