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

时间:2024-10-12 19:12:20

1、如图,表格的A列有些数据,怎样按顺序把数据分别复制到后面的不同工作表里。

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

2、如果A列的数据都是相同的,比如都是1,可直接输入,方法是先点选SHEET2工作表标签。

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

3、然后按住SHIFT键点击最后一个工作表,输入数字1,这样每张表都在同样的位置输入数字1。

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

4、如果数据并不相同,可利用VBA代码快速实现,在菜单栏点击开发工具,启动宏编辑器。

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

5、点击插入--模块,打开模块编辑窗口。

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

6、在打开的模块中插入以下代码:Sub 分表()Dim Orng As RangeDim Sht As WorksheetSet Orng = Sheets("sheet1").Range("A1")For Each Sht In WorksheetsIf Sht.Name <> "sheet1" ThenSht.Range("E4") = OrngSet Orng = Orng.Offset(1, 0)End IfNextEnd Sub

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

7、关闭编辑器窗口,点击宏,在弹出的对话框中选择--执行,这样列里的数据分别复制到E4单元格。

将列内容复制到不同工作表 数据分到不同工作表
© 手抄报圈