菜鸟提问，如何将不同表格中指定位置的数据汇总到一个汇总表格中

qq632726678

菜鸟提问，如何将不同表格中指定位置的数据汇总到一个汇总表格中

如例子中所示， 如何将表1，表2，表3中的指定位置的数据，使用宏操作后分别罗列到汇总表格中并按操作顺序自动生成序号 ？？

qq632726678

首先感谢 yaojil  的回答

我想问一下  


Sub feiqu()
Dim arr, wb As Workbook, mp$, mf$
    Application.DisplayAlerts = False
    Application.ScreenUpdating = False
    mp = ThisWorkbook.Path & "\"
    mf = Dir(mp & "*.xls")
    R = 2
    While mf <> ""
        If mf <> ThisWorkbook.Name Then
            Set wb = GetObject(mp & mf)                          有的机器执行到这里时显示 类型不匹配？ 有的机器没事 请问是什么原因？
            With wb.Sheets(1)
                arr = .Range("b10:d10")
                Cells(R, 2).Resize(UBound(arr), UBound(arr, 2)) = arr
                wb.Close False
            End With
        R = R + UBound(arr)
        End If
    mf = Dir
    Wend
    For i = 2 To R - UBound(arr)
    Cells(i, 1) = i - 1
    Next
    Set wb = Nothing
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub