实现方式如下:
举例·:一个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))
公式向下复制。