这个要用VBA完成,可以写成自定义函数也可以直接宏完成 以下方法是自字义函数完成的 代码如下 Function PaiLie(rng As Range) Dim str1$, str2$, x&, i1&, i2& str1 = rng.Value i = InStr(str1, "-") i1 = Left(str1, i - 1) i2 = Mid(str1, i + 1, Len(str1) - i - 1) For x = i1 To i2 If str2 = "" Then str2 = Format(x, "000") Else str2 = str2 & "," & Format(x, "000") End If Next x PaiLie = str2 End Function