生成循环数的代码求助

xkx590 · 发表于 2022-11-23 10:39

本帖最后由 xkx590 于 2022-11-23 11:03 编辑

各位高手：要在A2开始生成1-5的循环数，组数不限，最后一组有可能没有5个（即：最后一组可能是1，2，3）。VBA代码要怎样写？

陆离Lowry · 发表于 2022-11-23 10:55

。。。。。。。。。。

ykcbf1100 · 发表于 2022-11-23 10:55

这样就可以。

gwjkkkkk · 发表于 2022-11-23 10:59

Sub 按钮1_Click()
Dim i&, iNumberR&, arr
iNumberR = Application.InputBox("请输入生成个数", Title:="提示", Default:=100, Type:=1)
If iNumberR = False Then Exit Sub
ReDim arr(1 To iNumberR)
For i = 1 To UBound(arr)
arr(i) = IIf((i Mod 5) = 0, 5, i Mod 5)
Next i
[a1].CurrentRegion.Offset(1).Clear
[a2].Resize(iNumberR) = Application.Transpose(arr)
End Sub

xkx590 · 发表于 2022-11-23 11:01

陆离Lowry 发表于 2022-11-23 10:55
。。。。。。。。。。

谢谢高手帮忙

gwjkkkkk · 发表于 2022-11-23 11:02

代码审核中，请参考附件。。。

xkx590 · 发表于 2022-11-23 11:03

ykcbf1100 发表于 2022-11-23 10:55
这样就可以。

谢谢高手帮忙

xkx590 · 发表于 2022-11-23 11:05

gwjkkkkk 发表于 2022-11-23 11:02
代码审核中，请参考附件。。。

谢谢高手帮忙

笨鸟飞不高 · 发表于 2022-11-23 11:07

例子.zip (17.6 KB, 下载次数: 3)

nihao123456789 · 发表于 2022-11-23 11:08

Sub TS()
l = Round(10000 * Rnd(), 0)
s = 1
For i = 2 To l
If s <= 5 Then
      Cells(i, 1) = s
      s = s + 1
Else
      s = 1
      Cells(i, 1) = s
      s = s + 1
End If
Next i
End Sub

		自动登录	找回密码
密码			免费注册

[已解决] 生成循环数的代码求助

评分

评分

评分

评分