如何从多个Excel表中提取部分相同的数据生成单一的一个Excel文件

举例?：一个excel文件，里面有一百多个工作表，但工作表名称没有规则顺序，不是按照sheet1、sheet2这样的顺序排列，现在需要把每个工作表里的A3数据提取出来，组成新的一列。 解决方法：用宏自定义函数 同时按Alt和F11进入宏界面，点菜单的插入，?块，粘贴如下代码： Function AllSh(xStr As String, i As Integer) Application.Volatile AllSh = Sheets(i).Range(xStr).Value