需求:最近工作需要将多个采购单的数据汇总到一张表中查看,因为每张采购单格式相同,且每个采购单对应一个sheet表,现在想把张三明细、李四明细中的每月采购总额、期初应付款余额、供应商名称等汇总到一张sheet中,去网上搜索了下,发现有个代码很好用,记录下来以备后续查看。
张三表:
第一步:启用宏文件,新建汇总表,右击汇总表---查看代码
找到excel,右击插入----模块,在右边模块中写入代码段保存。
Function AllSh(xStr As String, i As Integer)
Application.Volatile
AllSh = Sheets(i).Range(xStr).Value
End Function
回到excel,在任意单元格输入=allsh("J4",ROW(A2))
公式向下复制。
依此类推,如要提取B3单元格的数据,只需将其J4改为B3。