VBA编程初试

您所在的位置:网站首页 多张表格汇总到一张表格内 VBA编程初试

VBA编程初试

2024-07-12 17:33| 来源: 网络整理| 查看: 265

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

 



【本文地址】


今日新闻


推荐新闻


CopyRight 2018-2019 办公设备维修网 版权所有 豫ICP备15022753号-3