1 数据准备 如图,以6个sheet为例,每个表中都是同样结构的数据,行数不确定。现在需要将各月数据汇总到汇总表中。 2 复制代码 在汇总表的标签点“右键”,找到“查看代码”,然后看到宏计算界面。如图所示: 会看到代码输入的界面: 复制下面这段代码到空白区域: Sub 合并当前工作簿下的所有工作表() Application.ScreenUpdating = False For j = 1 To Sheets.Count If Sheets(j).Name <> ActiveSheet.Name Then X = Range('A65536').End(xlUp).Row + 1 Sheets(j).UsedRange.Copy Cells(X, 1) End If Next Range('B1').Select Application.ScreenUpdating = True MsgBox '当前工作簿下的全部工作表已经合并完毕!', vbInformation, '提示' End Sub 效果如图: 3 执行代码完成合并 做完上面的事情,然后只需要点击工具栏上面的“运行”下的“运行子过程/用户窗体”就可以了: 合并完之后会有提示。提示完成之后就可以把宏计算界面关闭了。如图所示: 点击确定,关闭代码窗口: 可以看到数据已经完成了合并,如果不需要标题的话,筛选删除即可。 4 小结 通过这段代码,可以很直接的将每个sheet的数据进行合并,总体来说还是很方便的,对于合并后可以再去使用一些基础操作简单处理一下就可以满足需求了。 可能有些朋友还想根据自己的需要进行一些简单的修改,这就需要具备一定的VBA基础知识才行了。 |
|