Question

EXCEL VBA自动输入内容

1.在不同列输入值
详细见文件

Answer 1

Excel中VBA程序可以根据要求编写代码，实现自动输入想要的内容。

软件版本：Office2007

举例说明如下：

1.利用VBA在A列中依次输入1-100的数字：

2.Alt+F11，输入代码如下：

代码解释：通过变量i从1到100循环，依次在对应的A列行数为i的单元格中输入数值i

3.F5执行代码，得到结果如下：

Answer 2

Sub s()
    n = Cells(Rows.Count, 3).End(3).Row
    If Cells(n, 6) < 9 Then
        Cells(n, 6) = Cells(n, 6) + 1
    Else
        Cells(n, 6) = 0
        If Cells(n, 5) < 9 Then
            Cells(n, 5) = Cells(n, 5) + 1
        Else
            Cells(n, 5) = 0
            If Cells(n, 4) < 9 Then
                Cells(n, 4) = Cells(n, 4) + 1
            Else
                Cells(n, 4) = 0
                If Cells(n, 3) < 9 Then
                    Cells(n, 3) = Cells(n, 3) + 1
                Else
                    Cells(n, 3) = 0
                End If
            End If
        End If
    End If
End Sub