如何在excel 表中引用多个工作簿中同一位置的单元格内容

Question

你在百度的这个https://zhidao.baidu.com/question/305150609.html提问现在解决了吗？
我也想学习一下。

Answer 1

你想的 效果如下，有不懂的可以在追问Sub 汇总() Dim strPath As String Dim MySht As String Dim MyWK As Workbook strPath = ThisWorkbook.Path For I = 2 To 2001 If Cells(i, 1) = "" Then Exit For Else Set MyWK = Workbooks.Open(strPath & "\" & Cells(i, 1) & ".xlsx") ''请注意你的EXCEL档案存放的路径 ARR = Range("C6") ''注意你要复制的资料范围 End If MyWK.Close Cells(I,2)=ARR Next End Sub