在有规律排列的一列单元格里面的数据，如果手动将这些数据填充到相应的单元格里面，工作量也是相当大的。使用VBA程序将这些数据分别填入到对应的单元格里面，工作量将会少了很多。工具/原料more电脑Excel 2010方法/步骤1/5分步阅读

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

2/5

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

3/5

在“模块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/5

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

5/5

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

注意事项

个人经验，仅供参考。

学习EXCELVBA自动排列