分享一个如何快速填充同一单元格内的数值范围的方法。
以上图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的话,欢迎参考往期文章:
有问题欢迎留言~
领取专属 10元无门槛券
私享最新 技术干货