如何提取无序的多个excel文件中相同位置的单元格数据，然后列成一列？

有一百多个excel文件，文件名没有按照顺序排列，有的中文名，有的英文，有的数字，各个文件里面都有sheet1，现在需要把每个文件里面的sheet1的A3数据提取出来，组成新的一列，又把所有的D5数据组成新的一列，以此类推，

确保该文件夹下的Excel文件只有这100多，建一新Excel，也存到该文件夹。仅打开该新Excel，同时按Alt+F11进入宏界面，点菜单的插入，模块，在右边窗口粘贴如下代码：
Sub Find()
Application.ScreenUpdating = False
Dim MyDir As String
Dim i As Integer
i = 2
MyDir = ThisWorkbook.Path & "\"
ChDrive Left(MyDir, 1) 'find all the excel files
ChDir MyDir
Match = Dir$("*.xls")
Do
If Not LCase(Match) = LCase(ThisWorkbook.Name) Then
Workbooks.Open Match, 0, 1
ThisWorkbook.ActiveSheet.Range("A" & i) = Match
ThisWorkbook.ActiveSheet.Range("B" & i) = ActiveWorkbook.Sheets("Sheet1").Range("A3")
ThisWorkbook.ActiveSheet.Range("C" & i) = ActiveWorkbook.Sheets("Sheet1").Range("D5")
ActiveWorkbook.Close 0
i = i + 1
End If
Match = Dir$
Loop Until Len(Match) = 0
Application.ScreenUpdating = True
End Sub

在此界面下直接按F5运行此宏，等一会，完成。

如果你A3、D5等不多几个单元格，继续复制粘贴
ThisWorkbook.ActiveSheet.Range("C" & i) = ActiveWorkbook.Sheets("Sheet1").Range("D5")
把粗体字修改。
如果很多且有规律，可以用一个循环解决。

温馨提示：内容为网友见解，仅供参考

当前网址：https://11.t2y.org/zz/vqpp4ps48.html