excel - 递增序列vba

我的序列将类似于0000-16x, 0001-16x, 0002-16x, … ,9999-16x
我想编写一个将读取值之一并将其递增1的宏。例如如果读取0014-16x，则代码将返回0015-16x

我的代码仅在单元格的内容均为数字时才有效

Dim name As Variant
name = ActiveCell
name = name + 1
ActiveCell.Offset(1, 0).Activate
ActiveCell.FormulaR1C1 = name

我怎样才能增加一个序列呢？谢谢

最佳答案

没有错误检查：

Function NextSequence(v)
    Dim arr
    arr = Split(v, "-")
    NextSequence = Format(CLng(arr(0)) + 1, "0000") & "-" & arr(1)
End Function