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