1、如图，表格的A列有些数据，怎样按顺序把数据分别复制到后面的不同工作表里。
2、如果A列的数据都是相同的，比如都是1，可直接输入，方法是先点选SHEET2工作表标签。
3、然后按住SHIFT键点击最后一个工作表，输入数字1，这样每张表都在同样的位置输入数字1。
4、如果数据并不相同，可利用VBA代码快速实现，在菜单栏点击开发工具，启动宏编辑器。
5、点击插入--模块，打开模块编辑窗口。
6、在打开的模块中插入以下代码：
Sub 分表()
Dim Orng As Range
Dim Sht As Worksheet
Set Orng = Sheets("sheet1").Range("A1")
For Each Sht In Worksheets
If Sht.Name <> "sheet1" Then
Sht.Range("E4") = Orng
Set Orng = Orng.Offset(1, 0)
End If
Next
End Sub
7、关闭编辑器窗口，点击宏，在弹出的对话框中选择--执行，这样列里的数据分别复制到E4单元格。
