如下图所示，将sheet1工作表的内容翱务校肢复制到sheet2工作表里面指定的单元格，如果手动填充，这将增大工作量，使用VBA里面的for循环进行填充，可以减少工作量。
工具/原料
电脑
Excel2010
方法/步骤
1、打开Excel表格，在菜单栏上面点击【开发工具】，【VisualBasic】打开VBA编辑器，也可以使用【Alt+F11】组合键打开VBA编辑器。
2、在VBA菜单栏上面点击【插入】，【模块】。
3、在代码框里面输入一下程序代码：SubAutoInput()Dimi,j,k巳呀屋饔,m,nAsLong'数据类型定义OnErrorResumeNext'剧安颌儿如果运行过程中出错，则忽略Setmysheet1=ThisWorkbook.Worksheets("Sheet1")Setmysheet2=ThisWorkbook.Worksheets("Sheet2")k=1'初始值赋值Fori=1To8'所要填充的列数为8列IfiMod2=0Then'如果所填充的表格是偶数列，则执行IF里面的语句n=0'初始化为0Forj=1To6'一列里面要填充的数据为6组k=k+1'从原来的表格里面获取的行数逐一递增Form=1To4'每4列为一组n=n+1'从原表格第一列开始mysheet2.Cells(n,i)=mysheet1.Cells(k,m)'赋值NextNextEndIfNextEndSub
4、点击VBA编辑器上面的“运行”图标进行运行程序，在另一个表格里面就可以看到运行的结果了。
