其他分享
首页 > 其他分享> > 从多张工作簿(workbooks)中多张工作表(worksheets)同一位置提取数据

从多张工作簿(workbooks)中多张工作表(worksheets)同一位置提取数据

作者:互联网

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

  1. 新建一张“汇总.xlsm”,并打开,新建sub()过程;
  2. 依次打开工作簿;
  3. 源码如下:

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”

标签:Cells,workbooks,汇总,每张,工作,从多张,中多张,Worksheets,Workbooks
来源: https://blog.csdn.net/weixin_40112836/article/details/88545769