当前位置: 主页 > Office办公 > Excel专区 > Excel函数 > excel N页数据汇总,你还在手动复制粘贴?

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

  • 2022-03-16
  • 来源/作者: 菜鸟图库/ 菜鸟图库
  • 280 次浏览

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

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

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

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

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

Sub combine()

Application.ScreenUpdating =False

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或者运行-运行子过程或用户窗体。是不是发现~~~世界原来这么简单。

标签(TAG) VBA教程