excel N页数据汇总，你还在手动复制粘贴？

实际工作当中我们会碰到按日、按月、按年分类统计，当数据需要汇总一起时，你还在一页一页的老（泪）老（流）实（满）实（面）的复制粘贴吗？？？

~~T_T|||……,如果真是这样，真是心里面一万个草泥马在狂奔吧。

下面小编告诉你一个简单又实际的方法，VBA一键汇总~~~

点击开发工具——Visual Basic，输入以下经文，

Sub combine()

Application.ScreenUpdating =False

文章内容收集于网络，希望能为广大朋友提供帮助。强国说学习-WPS之家(wps.qiangguoshuo.com)

For j = 1 ToSheets.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

输入后点击F5或者运行-运行子过程或用户窗体。是不是发现~~~世界原来这么简单。

如想转载该文章请注明出处：强国说学习-qiangguoshuo.com

转载声明：本站发布文章及版权归原作者所有，转载本站文章请注明文章来源！

本文链接：https://www.qiangguoshuo.com/excel/72910.html