从多张工作簿（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”