qingsi11的博客

今天同事问我，他要汇总一个工作簿里面十几张子表里面的数据到同工作簿的汇总表里面，怎么操作比较快。然后我就想到了VBA，接着给他写（录）了一个宏，一键完成所有数据汇总。 所以今天就分析这个小技巧，不需要VBA脚本很熟悉的盆友也可以上手哦，非常简单易行。1、首先，看看需求，有下面一张表，需要把除了‘数据汇总’以外的其他子表里面的内容，汇总到‘数据汇总’，其中他们的数据格式是一样的，就是说表头是一样的。2、接着，点击开发工具，录制宏，填写宏名，当然也可以默认，再点击确定3、接着，选择’Sheet1’

从一个工作簿各个子表中复制数据粘贴到另一个工作簿指定位置中，并对指定列进行排序，这个是我们在日常工作中经常做的，如何减少繁琐的工作步骤，提高效率，一键完成上面的工作。下面介绍通过VBA，如何自动化跨工作簿复制粘贴及排序。 图一图二将图一工作簿中三个子表含有公式的数据，复制粘贴数值到图二的表1，并进行排序，可以直接点击图二中执行的控件即可完成；以下是VBA脚本的实现。Sub scopy2()'' 复制粘贴及排序'#复制粘贴Application.ScreenUp...