VBA提取多个excel同一名称sheet的同一区域

问题描述

有多个excel的同一个sheet其中的几行数据需要汇总到同一个excel中，并在汇总表的A列显示各个文件夹的名称。

以下VBA代码解决问题&步骤：

 1. 将需要汇总的excel和新建的汇总表（.xlsm) 放置在同一个文件夹中

  2. 明确需要提取的行数（用于确定定义的变量数）蓝色背景部分

  注：初学乍道，欢迎指导修改让代码更简洁高效！

代码

Sub find3()
 Application.ScreenUpdating = False
 Dim Mydir As String
 Dim i As Integer
 i = 2 '在指定的表格的第二行开始汇总
 Dim q As Integer
 q = 3
 Dim r As Integer
 r = 4
 Mydir = ThisWorkbook.Pat