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

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

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

3、在“模块1”的代码框里面输入以下代码：

Sub Auto()

'第一列里面的数据每3行重复一次

Dim i, j, k As Integer

Set Mysheet1 = ThisWorkbook.Worksheets("sheet1")

Set Mysheet2 = ThisWorkbook.Worksheets("sheet2")

j = 2

k = -2

For 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 If

If j Mod 3 = 1 Then

Mysheet2.Cells(j - 1 - k, 2) = Mysheet1.Cells(j, 1)

End If

If j Mod 3 = 2 Then

Mysheet2.Cells(j - 2 - k, 3) = Mysheet1.Cells(j, 1)

End If

End If

Next

End Sub

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

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