excel - 减少字符串并保持零完整

Question

我正在使用“XXXX-000-000-000”格式的单元格值。

• 第一个连字符之前的所有内容都需要删除，我可以做到。
• 字符串的其余部分需要减少为整数，并删除连字符和任何多余的零。

我无法将零保持在正确的位置。

• AD12-002-020-34 需要如下所示:2-20-34
• CA1-002-101-001 需要如下所示:2-101-1
• AD12-002-020-10 需要如下所示:2-20-10

例如:

dim ir as range

ir = "AD12-002-020-100"

ir1 = InStr(ir, "-")
ir2 = InStrRev(ir, "-")
ir.Offset(0, 1) = Mid(ir, ir1 + 1, ir2 - ir1 + 3)

这给了我:002-020-100

建议？预先感谢您!

Answer 1

考虑:

Sub dural()
    Dim s As String
    s = "AD12-002-020-34"
    s = Replace(s, "-0", "-")
    s = Replace(s, "-0", "-")
    ary = Split(s, "-")
    ary(0) = ""
    s = Mid(Join(ary, "-"), 2)
    MsgBox s
End Sub