问题描述
有多个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