如何在vba excel中使用多个分隔符和连接部分拆分字符串？

Question

大家好，

我想就以下几点提出一些意见。

我有一个函数，它将字符串的各个部分分开，并将单数数字转换为两位数。该函数使用“.”。作为分隔符，然后通过不同的分隔符再次将各部分连接起来。

当我调用函数时，我只需在单元格中添加"=Outliner(C3)“，就可以实现格式设置。

一切都很美好。如果我输入14.1.1.1，则函数返回14-01-01-01，这正是我需要它做的。

现在出现了一个新的场景，我得到的数字为14.1.1-1，现在函数返回14-01-01-43831，这不是我想要的。我还是想要14-01-01-01。

函数有一个简单的修正吗。我已经添加了下面的代码。

Function Outliner(S As String) As String
  Dim x As Long, Parts() As String
  Parts = Split(S, ".")
  For x = 0 To UBound(Parts)
    Parts(x) = Format(Parts(x), "00")
  Next
  Outliner = Join(Parts, "-")
End Function

Answer 1

替换

Parts = Split(S, ".")

使用

Parts = Split(Replace(S, "-", "."), ".")