将列内容复制到不同工作表 数据分到不同工作表

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单元格。