使用VBA自定义函数创建数字序列

Function SequenceNum(txt As String) As String
    Dim i As Long
    Dim j
    For Each j In Split(txt, ",")
        If j Like "*-*" Then
            For i = Split(j, "-")(0) To Split(j, "-")(1)
                SequenceNum = SequenceNum & "," & i
            Next i
        Else
            SequenceNum = SequenceNum & "," & j
         End If
    Next j
    SequenceNum = Mid$(SequenceNum, 2)
End Function