电子表格如何提取一个EXCEL表中的多个工作薄数据?

1.如何提取一个EXCEL表中的多个工作薄数据?

选择Sheet1，鼠标右击sheet1的标签，点【查看代码】，在代码窗口粘贴下面的代码：Sub ouyangff()t = ActiveWorkbook.Worksheets.CountFor i = 1 To t Cells(i + 100, 1) = Sheets(i).Name Cells(i + 100, 2) = Sheets(i).[i40] Cells(i + 100, 3) = Sheets(i).[k40] Cells(i + 100, 4) = Sheets(i).[m40]NextEnd Sub按F5运行程序，Alt + F11 回到Excel ,A100下面就是你要汇总的数据了！想放在其他单元格，你可以修改 Cells(i + 100, 1)里的100。

2.excel中如何将多个表格的数据提取出来

实现方式如下：举例·：一个excel文件，里面有一百多个工作表，但工作表名称没有规则顺序，不是按照sheet1、sheet2这样的顺序排列，现在需要把每个工作表里的A3数据提取出来，组成新的一列。

解决方法：用宏自定义函数同时按Alt和F11进入宏界面，点菜单的插入，塻块，粘贴如下代码：Function AllSh(xStr As String, i As Integer)Application.VolatileAllSh = Sheets(i).Range(xStr).ValueEnd Function回到excel，在任意单元格输入=allsh("A3",ROW(A1)）公式向下复制。