如果您需要在多个Excel文件中提取相同位置的数据，可以考虑使用VBA（Visual Basic for Applications）来实现自动化。以下是一个简单的VBA代码示例，可以帮助您在多个Excel文件中提取相同位置的数据：
多个excel同一位置提取数据？Sub ExtractData()
Dim folderPath As String, fileName As String, sheetName As String
Dim wb As Workbook, targetWb As Workbook
Dim targetSheet As Worksheet, sourceSheet As Worksheet
Dim targetLastRow As Long, sourceLastRow As Long
Dim i As Long, j As Long
'设置目标工作簿和目标工作表
Set targetWb = Workbooks.Add '创建一个新的工作簿作为目标
Set targetSheet = targetWb.Sheets(1)
'设置要提取数据的Excel文件路径和要提取数据的工作表名称
folderPath = "C:\TestFolder\" '请将此路径替换为您的实际文件夹路径
fileName = "*.xlsx" '请将此文件名替换为您要提取数据的实际文件名
sheetName = "Sheet1" '请将此工作表名称替换为您要提取数据的实际工作表名称
'循环遍历文件夹中的所有Excel文件
Do While True
fileName = Dir(folderPath & fileName)
If fileName = "" Then
Exit Do
End If
'打开Excel文件并提取数据
Set wb = Workbooks.Open(folderPath & fileName)
Set sourceSheet = wb.Sheets(sheetName)
sourceLastRow = sourceSheet.Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To sourceLastRow
targetSheet.Cells(i + 1, 1).Value = sourceSheet.Cells(i + 1, 1).Value '将数据复制到目标工作表的第一列
'您可以根据需要复制其他列的数据，例如：
'targetSheet.Cells(i + 1, 2).Value = sourceSheet.Cells(i + 1, 2).Value '将数据复制到目标工作表的第二列
'targetSheet.Cells(i + 1, 3).Value = sourceSheet.Cells(i + 1, 3).Value '将数据复制到目标工作表的第三列，以此类推
Next i
wb.Close False '关闭Excel文件，不保存更改
Loop
'保存目标工作簿并关闭
targetWb.SaveAs folderPath & "ExtractedData.xlsx" '将提取的数据保存到一个新的工作簿中
targetWb.Close '关闭目标工作簿
End Sub
在上面的示例中，您需要将folderPath变量设置为您要提取数据的Excel文件所在的文件夹路径，fileName变量设置为您要提取数据的Excel文件的名称（可以使用通配符），sheetName变量设置为您要提取数据的实际工作表名称。然后，您可以运行该VBA宏，它将遍历文件夹中的所有Excel文件，并将指定位置的数据复制到一个新的工作簿中。最后，它将保存新的工作簿并关闭。
设置和运行宏可以通过以下步骤完成：
打开Excel或Word等应用程序，并打开您要设置宏的工作簿或文档。
打开Visual Basic Editor（VBE），这是用于编写和编辑宏的编程环境。在Excel中，可以通过按下Alt + F11键或选择“开发工具”选项卡下的“Visual Basic”按钮来打开VBE。在Word中，可以通过按下Alt + F11键或选择“开发工具”选项卡下的“Visual Studio浏览器”来打开VBE。
在VBE中，选择您要设置宏的工作簿或文档，并在其中创建一个新的模块。您可以通过选择“插入”菜单中的“模块”选项来创建新模块。
在新模块中，您可以编写宏代码。宏代码可以是任何您想要执行的指令或操作，例如复制、粘贴、格式化单元格等。
在编写宏代码后，您可以将其保存并为其命名。您可以通过选择“文件”菜单中的“保存”选项来保存宏代码，并在“另存为”对话框中选择一个文件名和保存位置。
关闭VBE并返回到您的工作簿或文档。要运行宏，请按下Alt + F8键或选择“开发工具”选项卡下的“宏”按钮。这将打开“宏”对话框。
在“宏”对话框中，选择您要运行的宏并单击“运行”按钮。您的宏代码将自动执行。
请注意，为了确保您的宏可以正常运行，您需要启用宏功能。在Excel中，您可以选择“文件”菜单中的“选项”按钮，在“自定义功能区”中选择“开发工具”选项卡，然后勾选“使用VBA宏”复选框。在Word中，您可以选择“文件”菜单中的“选项”按钮，在“自定义功能区”中选择“开发工具”选项卡，然后勾选“Visual Basic”复选框。