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代码复制到文本文档上面进行保存。
