Excel通用VBA代码一键合并多个工作表至总表! |
您所在的位置:网站首页 › 多个表格合并代码 › Excel通用VBA代码一键合并多个工作表至总表! |
用这个代码,同样的可以进行快速合并,只需要在汇总的表格中添加一个标题第五列,然后点击多表合并按纽即可 同样的,如果是再添加1个工作表,在英雄1后面插入了一个sheet2表格,里面输入一条同样的数据,如下所示: 同样的,只需要点击多表合并按纽便可完成,如下所示: 那么这个VBA代码是什么,如下所示: Sub 多表合并() Dim arr() a = Range("a1").End(xlToRight).Column For Each sh In Sheets If sh.Name "汇总" Then arr1 = sh.Range("a2").Resize(sh.UsedRange.Rows.Count - 1, a) act = act + UBound(arr1) ReDim Preserve arr(1 To a, 1 To act) ' For j = 1 To UBound(arr1) n = n + 1 For i = 1 To a arr(i, n) = arr1(j, i) Next i Next j End If Next Sheets("汇总").[a2].Resize(n, a) = Application.Transpose(arr) End Sub 这段代码直接保存即可,有了这段代码,我们在VBA中插入一个模块,将代码写入进去,插入一个按纽,绑定代码,即可实现,绑定代码的操作过程如下所示: 好,你学会了吗? 给自己持续学习的态度点个赞吧! 欢迎留言讨论,期待您的转发分享! ------------------------------- 谢谢关注,更多精彩内容持续更新中....返回搜狐,查看更多 |
今日新闻 |
推荐新闻 |
CopyRight 2018-2019 办公设备维修网 版权所有 豫ICP备15022753号-3 |