使用VBA程序将有规律的数据填入对应单元格

1、点击菜单栏上面的【开发工具】，【visual Basic】。

2、打开VBA工程编辑器后，在“ThisWorkbook”上面单击右键，选择“插入”，“模块”。

3、在“模块1”的代码框里面输入以下代码：Sub Auto()'第一列里面的数据每3行重复一次Dim i, j, k As IntegerSet Mysheet1 = ThisWorkbook.Worksheets("sheet1")Set Mysheet2 = ThisWorkbook.Worksheets("sheet2")j = 2k = -2For i = 1 To 1000 '循环1000次j = j + 1 '从第三行开始If Mysheet1.Cells(j, 1) <> "" Then '如果第一列里面的单元格不是空白，则执行以下程序If j Mod 3 = 0 Then '从第三行开始，取余，条件成立时执行以下程序k = k + 2 '每3次执行一次Mysheet2.Cells(j - k, 1) = Mysheet1.Cells(j, 1)End IfIf j Mod 3 = 1 ThenMysheet2.Cells(j - 1 - k, 2) = Mysheet1.Cells(j, 1)End IfIf j Mod 3 = 2 ThenMysheet2.Cells(j - 2 - k, 3) = Mysheet1.Cells(j, 1)End IfEnd IfNextEnd Sub

4、输入完程序之后，点击VBA工程窗口上面的“运行”图标，或按下F5键运行VBA代码，在Sheet2表格里面就可以看到数据排列。

5、如果需要保留Excel表格上面的VBA代码，可以将Excel表格另存为启用宏的工作薄，或者将VBA代码复制到文本文档上面进行保存。