在有规律排列的一列单元格里面的数据，如果手动将这些数据填充到相应的单元格里面，工作瞠饨土椿量也是相当大的。使用VBA程序将这些数据分别填入到对应的单元格里面，工作量将会少了很多。
工具/原料
电脑
Excel2010
方法/步骤
1、点击菜单栏上面的【开发工具】，【visualBasic】。
2、打开VBA工程编辑器后，在“ThisWorkbook”上面单击右键，选择“插入”，“模块”。
3、在“模块1”的代码框里面输入以下代码：SubAuto()'第一列里面的数倌栗受绽据每3行重复一次Dimi,j,kAs惺绅寨瞀IntegerSetMysheet1=ThisWorkbook.Worksheets("sheet1")SetMysheet2=ThisWorkbook.Worksheets("sheet2")j=2k=-2Fori=1To1000'循环1000次j=j+1'从第三行开始IfMysheet1.Cells(j,1)<>""Then'如果第一列里面的单元格不是空白，则执行以下程序IfjMod3=0Then'从第三行开始，取余，条件成立时执行以下程序k=k+2'每3次执行一次Mysheet2.Cells(j-k,1)=Mysheet1.Cells(j,1)EndIfIfjMod3=1ThenMysheet2.Cells(j-1-k,2)=Mysheet1.Cells(j,1)EndIfIfjMod3=2ThenMysheet2.Cells(j-2-k,3)=Mysheet1.Cells(j,1)EndIfEndIfNextEndSub
4、输入完程序之后，点击VBA工程窗口上面的“运行”图标，或按下F5键运行VBA代码，在Sheet2表格里面就可以看到数据排列。
5、如果需要保留Excel表格上面的VBA代码，可以将Excel表格另存为启用宏的工作薄，或者将VBA代码复制到文本文档上面进行保存。
