如何解决循环在Excel中的行打印数量在Excel中重复数环
如何使在Excel VBA中一个循环,将打印某些行一个数字,然后移动到其他行另一个号码。这就是我希望我的回路的事:
1
1
1
1
1
2
2
2
2
2
3
3
3
3
3
我无法获得循环权利。This is the OutPut that I want to Automate
解决方法
这是一种方法:
Sub FillNumbers(start As Range,n As Long,k As Long)
Dim block As Range,i As Long
For i = 1 To n
Set block = Range(start.Offset(k * (i - 1)),start.Offset(k * i - 1))
block.Value = i
Next i
End Sub
然后,例如子调用
FillNumbers Range("A1"),5,12
将用大小为 12 的块中的数字 1-5 填充范围 A1:A60
。
考虑:
Sub whatever()
k = 1
For i = 1 To 3
For j = 1 To 5
Cells(k,1) = i
k = k + 1
Next j
Next i
End Sub
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。