要使用VBA提取多个工作表中相同位置的数据，你可以按照以下步骤进行操作：
1. 打开Excel并按下ALT + F11键，打开Visual Basic for Applications (VBA)编辑器。
2. 在VBA编辑器中，点击菜单栏中的"插入"，然后选择"模块"，以创建一个新的模块。
3. 在模块中，编写以下VBA代码来提取多个工作表中相同位置的数据：
Sub ExtractDataFromSheets()
Dim ws As Worksheet
Dim targetCell As Range
Dim dataRange As Range
Dim sheetNames As Variant
Dim i As Integer
' 指定要提取数据的工作表名称
sheetNames = Array("Sheet1", "Sheet2", "Sheet3") ' 替换为你的工作表名称
' 指定要提取数据的单元格位置
Set targetCell = ThisWorkbook.Sheets("Sheet4").Range("A1") ' 替换为你的目标工作表和单元格位置
' 循环遍历每个工作表
For i = LBound(sheetNames) To UBound(sheetNames)
' 获取当前工作表对象
Set ws = ThisWorkbook.Sheets(sheetNames(i))
' 设置要提取数据的范围
Set dataRange = ws.Range("A1") ' 替换为你要提取数据的单元格范围
' 将数据复制到目标单元格
dataRange.Copy targetCell
' 根据需要调整目标单元格的位置，以便在目标工作表中粘贴数据
Next i
End Sub
4. 在上述代码中，你需要根据实际情况进行以下更改：
- 在`sheetNames`数组中，列出你要提取数据的工作表名称。
- 在`targetCell`变量中，指定要将数据粘贴到的目标工作表和单元格位置。
- 在`dataRange`变量中，指定要提取数据的单元格范围。
5. 保存并关闭VBA编辑器。
6. 返回Excel，按下ALT + F8键，选择"ExtractDataFromSheets"宏，并点击"运行"按钮。
这段VBA代码将会循环遍历指定的工作表，提取相同位置的数据，并将它们依次粘贴到目标工作表中的连续单元格中。
如果我们修改了取值范围那么显示结果也会不同。
好了这就是利用VBA提取多个工作表同一个位置数据的详细方法步骤了，希望以上内容能够帮助到你，感谢点赞关注收藏！