请高手赐教！不同的Excel表格相同的格式数据如何批量导入！（带说明图片）

Question

注：01表格中蓝底色数据行数不定，
01表黄底色数据提取到02表黄底色位置上（蓝底色数据同样提取）
数据从01文档的Sheet1工作表——导入到02文档的Sheet1工作表中
数据从01文档的Sheet2工作表——导入到02文档的Sheet2工作表中
如此类推

另有一个小问题，01表格中能否自动生成：
Sheet1为BOM000001
Sheet2为BOM000002
Sheet3为BOM000003
如此类推，注用的是2003版本，每个表格最多生成255工作表。等待高人出手！！

Answer 1

有几个问题：
01工作薄中各工作表的格式是否相同（即前4行为表头内容，第5行开始为数据）
02工作薄中各工作表的前8行内容（除第6行外）是否是完全一样。
如果是这样，通过工作表组的操作就可以完成。
先将01工作薄做好备份。
单击01工作薄的Sheet1工作表标签，按住SHIFT键，单击最右边那个工作表标签。这样所有工作表就组成了工作表组。
选中前8行，右键“插入行”，在前面增加8个空白行。
将02工作薄中前8行固定内容手动输入到01工作薄的前8行中（第6行除个）。
在A6单元格输入公式：
=INDEX($A:$A,8+COLUMN())
将公式向右复制到D列。
选中第6行，复制、选择性粘贴，选中“数值”，确定。将公式结果固定下来。
选中第9至12行，删除行。
单击其他任一工作表标签，退出工作表组状态。
这样就变成你要的02工作薄了。

另外，一个工作薄的工作表数量并没有限制至255个。只要你的电脑内存够大，多少个工作表并没有限制。
建立多个工作表的方法：
右击某个工作表标签,点"插入",选择"工作表",点"确定",然后按住Alt+Enter键不放,你要多少个你就按住多久不放,你会看到工作表数量在不断增加,几千个都没有问题。追问

不好意思，这几天出差了刚回来，刚试了一下你拉公式真可以。先谢谢您！

另外在已有的01工作表中能用公式自动生成
Sheet1——A1单元格为BOM000001
Sheet2——A1单元格为BOM000002
Sheet3——A1单元格为BOM000003
Sheet4——A1单元格为BOM000004 吗？
再次感谢你的热心帮忙！能完成另加10分

追答

这个需要用VB写代码才能完成。

追问

能解决吗？谢谢

追答

Sub Macro1()
For I = 1 To Sheets.Count
Worksheets(I).Cells(1, 1) = "BOM" & WorksheetFunction.Text(I, "000000")
Next I
End Sub