前段时间，阿斌哥发来一份EXCEL，大致看了一眼就懂，根据图中C列的需要个数生成当前最大STCP号后面连续几个数。

我一瞧，这个好像很简单的样子，用函数就可以实现了，看起来简单，实际操作却不容易啊。我冥想了好久也没有答案，于是无奈又动起VBA来了。

代码如下：

Sub 阿斌哥()
[a1:c1] = Array(“Enodeb”, “最大SCTP号”, “需要个数”)
r1 = Sheet1.[B1048576].End(xlUp).Row ‘获取行数
For i = 2 To r1 ‘循环
For j = 2 To Range(“C” & i) + 1 ‘循环+1
Cells(i, j + 2).Value = Range(“B” & i).Value + j – 1 ‘ 输出值
Next
Next
MsgBox “执行成功！”, , “By小庆”
End Sub

想函数花了半小时没想到，用VBA5分钟解决，搞定，收工！