自动填充数值范围

分享一个如何快速填充同一单元格内的数值范围的方法。

以上图A2单元格举例，想快速把003-007范围内的数值都展示出来变成003 004 005 006 007样式，如果手打的话太麻烦了，用以下代码可以快速填充数值范围：

Function Fill范围(a As String, b As String)

'欢迎关注 Will的代码小屋

Dim arr() As String

Dim i As Integer

Dim s As String

Dim s2 As String

arr = Split(a, b)

For i = arr(0) To arr(1)

If Len(str(i)) = 2 Then

s2 = "00" & i

ElseIf Len(str(i)) = 3 Then

s2 = "0" & i

Else

s2 = i

End If

s = s & s2 & " "

Next

Fill范围 = Left(s, Len(s) - 1)

End Function

以上是一个名为Fill范围的自定义函数，它有两个参数，第一个是目标单元格，第二个是连接符。让我们看一下运用效果：

红框里是公式。

红框里是结果。

代码的设定是用空格隔开，如果你想用别的方式隔开（比如逗号），那么只需要把如下图所示代码红框里的“ ”改成“,”即可。

如果不知道怎么运用VBA的话，欢迎参考往期文章：

《VBA的常见使用方式介绍》

有问题欢迎留言～