vba一键统计所在的文件夹里其他EXCEL的vba 选择性粘贴数值 完整？

来源：蜘蛛抓取(WebSpider) 时间：2022-11-05 04:19 标签： vba 选择性粘贴数值 完整

上次介绍了一个vba实例：

这个例子是把总表里面的数据根据单号批量提取相关内容后，分别保存成单独的文件。

有「拆」表格，自然就有「合并」表格，也就是上面实例（16）的逆操作，那么今天的例子就来说说如何用vba遍历多个工作簿并提取内容到总表。

现在有两张格式一样但内容不同的表，设为表一和表二，如下图

其中表二里面有两个sheet。

我们需要把这两个表中的三个sheet按照单号这个字段，统一提取内容到一个表格当中去，效果如下图：

遍历文件夹里面所有的excel文件，如果你里面有多个sheet，每个sheet也都遍历一遍，然后单号以及其他内容所在的单元格依次复制到总表当中即可。

如果需要源文件的话，wx公号后台回复「遍历提取」即可。

需要说明一下：实例的代码只是针对根据上面表格的字段设计的，如果你的字段数量不同，可能会出现错误。

据了解，做销售、零售、贸易等行业会用到销售单，订货单，采购单等表格，根据业务的情况会有上面的一些统计需求，这两个实例就是在帮多个小伙伴解决问题的时候做的，用vba（16）、（17）两个实例可以很方便快捷的实现效果。

如果还有其他需要定制化的功能，也可以联系我。

其他VBA实例，可以在公号里「精华整理」-「VBA实例」进行查看。

如果上述程序产生错误那是因为单元格不能移动， 为了解除上述错误， 我们可以 往 sub my_offset 之下加一段代码 on error resume next 注意以下代码都不再添加 sub “代码名称” 和 end sub 请自己添加 ! 给当前单元格赋值 ActiveCell.Value = " 你好！！！ " 给指定单元格赋值 例如：Ａ１单元格内容设为 " ＨＥＬＬＯ "

我要回帖

更多关于 vba 选择性粘贴数值 完整 的文章

 

随机推荐