补全数字

Function test(a As String) As String
Dim b As Variant
Dim i As Integer
b = Split(Trim(a), "-")
For i = CInt(b(0)) To CInt(b(1))
test = test & i & "."
Next
If Len(test) > 0 Then test = Left(test, Len(test) - 1)

End Function

写了个转换函数给你 会用的把