[已解决]这样的循环该怎么写

zhjl

我的一个程序需要做这样的循环，
for i=1 to n
我实际想要得到两个变量循环，分别是1,2,3,1,2,3,....和1,1,1,2,2,2,3,3,3...
函数的方法我会写，但VBA不太熟悉，请问该怎么写

最佳答案

月排行榜 / 总排行榜

danio112

2013-10-17 21:10

哈哈，我刚用类似的情况，供参考
For i = 1 To n
　a = VBA.IIf((i Mod 3) = 0, 3, (i Mod 3))
　b = Int((i - 1) / 3) + 1
　......
Next

跳转到最佳答案楼层

上清宫主

For i = 1 To 20
   s1 = s1 & ((i - 1) Mod 3 + 1)
   s2 = s2 & (Int((i - 1) / 3) + 1)
Next
MsgBox s1 & "   " & s2

danio112

哈哈，我刚用类似的情况，供参考
For i = 1 To n
　a = VBA.IIf((i Mod 3) = 0, 3, (i Mod 3))
　b = Int((i - 1) / 3) + 1
　......
Next

zhjl

danio112 发表于 2013-10-17 21:10
哈哈，我刚用类似的情况，供参考
For i = 1 To n
　a = VBA.IIf((i Mod 3) = 0, 3, (i Mod 3))

这个正是我想要的