Excel将工作表合并成总表的方法之VBA

Office办公 4 周前 回复

, ,

【前言】

在上篇文章中,对于总表拆分为分表的操作一共给大家分享了四种方法,建议同学们一定要勤加练习,才能熟能生巧。既然说了拆分,那么就没有道理不说“合并”。同样的,在日常工作中,合并各个分表到总表,也是经常会遇到的。

“没有完美的方法,只有完美的操作体系”。EXCEL带给我们的好像就是这么一个完美的操作体系,永远都是“一题多解”,如果当你既不想费劲去写函数,还想一劳永逸的合并工作表,那就采用VBA的方式来处理。

有很多同学都是“谈VBA色变”,但是作者E图表述要说,当你学了VBA才会真正的掌握EXCEL这个软件。

按ALT+F11组合键打开VBE界面,新建“模块1”,在代码区域输入下面的代码,操作一波看看吧。

各个分表合并到总表——VBA流
各个分表合并到总表——VBA流
Sub 合并工作表()
  Sheets("汇总").Range("A2:J65000").ClearContents
  For Each sh In Worksheets
    If sh.Name <> "汇总" Then
      a = Sheets("汇总").Range("A65000").End(3).Row + 1
      b = sh.Range("A65000").End(3).Row
      sh.Range("A2:J" & b).Copy Sheets("汇总").Cells(a, 1)
    End If
  Next
End Sub

代码中的Range是单元格区域对象的书写方式,括号中的J代表数据区域的末列,同学们如果操作自己的表格的时候,可以改成自己数据的末列列标,并把代码中的“汇总”改为自己汇总表的名称,即可。

在诸多的方法里,这个方法是最简单的,所以收藏一下,感谢这位大神的分享!

支付宝打赏微信打赏

如果此文对你有帮助,欢迎打赏作者。

发表评论

欢迎回来 (打开)

(必填)

8570