VBA编程初试----利用VBA实现将多个sheet表相同位置的内容复制汇总到一个sheet表中列成一列

需求：最近工作需要将多个采购单的数据汇总到一张表中查看，因为每张采购单格式相同，且每个采购单对应一个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。