VBA怎样将数字循环输入到单元格中

Question

有1，2，3三个数，怎样用VBA做到
单元格中：
A1=1,A2=2,A3=3,
A4=2,A5=3,A6=1,
A7=3,A8=1,A9=2,
……
如此做n次循环

Answer 1

看以下代码的效果是不是想要的

Sub 循环()

    n = Application.InputBox("请输入需要循环的次数:")

    For i = 0 To n - 1

        Cells(1 + n * 9, 1) = 1

        Cells(2 + n * 9, 1) = 2

        Cells(3 + n * 9, 1) = 3

        Cells(4 + n * 9, 1) = 2

        Cells(5 + n * 9, 1) = 3

        Cells(6 + n * 9, 1) = 1

        Cells(7 + n * 9, 1) = 3

        Cells(8 + n * 9, 1) = 1

        Cells(9 + n * 9, 1) = 2

    Next

End Sub

Answer 2

这个问题，用单个单元格循环，看不到什么规律，以我的能力，只能9个数一组，循环输入了。

Answer 3

如果只是像你说的这样，不用VBA，公式即可，先在A1、A2、A3中分别输入123，然后在A4中输入以下公式并下拉即可：

=IF((A1+1)>3,1,A1+1)本回答被网友采纳