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 NextEnd IfNextEnd Sub
4、点击VBA编辑器上面的“运行”图标进行运行程序，在另一个表格里面就可以看到运行的结果了。
