VBA里面使用for循环自动填充单元格

1、打开Excel表格，在菜单栏上面点击【开发工具】，【Visual Basic】打开VBA编辑器，也可以使用【Alt+F11】组合键打开VBA编辑器。

2、在VBA菜单栏上面点击【插入】，【模块】。

3、在代码框里面输入一下程序代码：

Sub AutoInput()

Dim i, j, k, m, n As Long  '数据类型定义

On Error Resume Next  '如果运行过程中出错，则忽略

Set mysheet1 = ThisWorkbook.Worksheets("Sheet1")

Set mysheet2 = ThisWorkbook.Worksheets("Sheet2")

k = 1  '初始值赋值

For i = 1 To 8       '所要填充的列数为8列

 If i Mod 2 = 0 Then  '如果所填充的表格是偶数列，则执行IF里面的语句

  n = 0   '初始化为0

  For j = 1 To 6   '一列里面要填充的数据为6组

    k = k + 1   '从原来的表格里面获取的行数逐一递增

      For m = 1 To 4  '每4列为一组

      n = n + 1  '从原表格第一列开始

      mysheet2.Cells(n, i) = mysheet1.Cells(k, m)  '赋值

      Next

   Next

 End If

Next

End Sub

4、点击VBA编辑器上面的“运行”图标进行运行程序，在另一个表格里面就可以看到运行的结果了。