VBA从多张工作簿（workbooks）中多张工作表（worksheets）同一位置提取数据

数据：N张工作簿，每张工作簿里又有M张工作表，每张工作表的同一位置Cells(2,16)有需要的数据，想讲这些数据汇总到一张新的表格。

新建一张“汇总.xlsm”，并打开，新建sub()过程；
依次打开工作簿；
源码如下：

Public Sub Data()

Dim i As Integer
Dim j As Integer

For i = 1 To Workbooks.Count

Workbooks(i).Activate

For j = 1 To Worksheets.Count

Workbooks(1).Worksheets(1).Cells(j, i) = Worksheets(j).Cells(2, 16)

Next

Next

End Sub

最终即可实现将每张工作簿中每张工作表的数据按列写入“汇总.xlsm”

VBA从多张工作簿（workbooks）中多张工作表（worksheets）同一位置提取数据相关推荐

Excel VBA:打开与关闭工作簿——Workbooks对象
Workbooks 对象 Microsoft Excel 应用程序中当前打开的所有 Workbook 对象的集合. 说明有关使用一个 Workbook 对象的详细信息,请参阅 Workbook 对象 ...
VBA学习笔记2：将工作簿的表格拆分为工作簿
VBA学习笔记2:将工作簿的表格拆分为工作簿 1.判断原有工作簿的sheet是否需要拆分: 2.如需拆分则创建新表: 3.将原sheet复制到新建的工作簿中. 效果如下: 代码执行前,有1个工作簿,需 ...
oracle两列合并成一列_POWER QUERY--一个工作簿内的多张工作表合并汇总
如果要汇总的工作表是在同一个工作簿内,此时的汇总并不复杂,但要先弄清楚:这些工作表数据的汇总操作,是纯粹将数据堆积汇总到一张表,还是根据各张表之间的关联字段来进行汇总. 01 多张工作表的堆积汇总此 ...
Python+Excel：将一个工作簿拆分为多个工作簿
应用场景一个工作簿是由多个工作表组成的,如果手工拆分工作簿是比较花时间的,如果数量多的话,真的是非常烦躁的工作.现在,我们使用Python编程就可以快速拆分工作簿了. 代码实现及注释 import ...
Excel 操作插件方方格子工作簿未按字母顺序排列重名工作簿名并拆分成工作表
1.未处理的站明细百步亭在前白沙洲在后格式未处理未重命名未拆分工作簿 2.处理后的站明细格式处理 F 列宽 32G列宽拉紧A列定位到 A400 - A7 选中 A400 到 A7时按s ...
将sheet工作表批量另存为独立的工作簿，并命名成sheet表的名称
将sheet工作表批量另存为独立的工作簿,并命名成sheet表的名称用法:打开excel文档,按ALT+F11调出VB编辑器,点插入模块,粘贴代码,按F5运行即可. Sub saveworkbook ...
mysql数据库中，查询一个表的下一条数据减上一条数据的值的写法
mysql数据库中,查询一个表的下一条数据减上一条数据的值的写法: select a.nodeId,a.cpuCharge-b.cpuCharge cpuCharge, a.chargeTime fr ...
excel工作簿左侧导航条_Excel工作簿中的高效导航
excel工作簿左侧导航条 When I saw the signs in this shop window, I laughed, and snapped this picture. 当我在商店橱窗 ...
NPOI复制Excel工作簿Sheet以及删除Excel工作簿
最近项目中,根据用户要求,需要批量导出Excel(系统里每天产生很多单子,以前都是一个一个的导出的,最近用户要求输入日期,导出该天所有单子). 原来是使用NPOI操作Excel.自以为是的以为批量导出 ...

VBA从多张工作簿（workbooks）中多张工作表（worksheets）同一位置提取数据

VBA从多张工作簿（workbooks）中多张工作表（worksheets）同一位置提取数据相关推荐

最新文章

热门文章