EXCEL批量复制多个表格的数据到一个表格的方法_公文写作问题探讨

个人资料

微博

正文字体大小：大中小

EXCEL批量复制多个表格的数据到一个表格的方法

(2018-09-08 16:28:33)

标签：

分类：我的文章

很多朋友反映，由于工作原因，常常需要将多个表格的数据汇总在一起。而这些表格，少则几十个，多则几百个，手工操作起来很是麻烦。下面，我来介绍一种简便的自动化操作程序，希望对各位有需要的朋友有所帮助。

代码如下：

Set fso = CreateObject("Scripting.FileSystemObject")

For Each f In fso.GetFolder(ThisWorkbook.Path & "\test\").Files

Set Bk = Workbooks.Open(f)

Bk.Sheets(1).Rows("1:" & Bk.Sheets(1).UsedRange.Rows.Count).Copy ThisWorkbook.Sheets(1).Range("A" & m)

m = m + Bk.Sheets(1).UsedRange.Rows.Count

Bk.Close

效果图如下：

http://s4/mw690/003oavuVzy7nt2DpA3Na3&690
（文件夹下的N个文件，这里是举例的，就用了2个）
http://s5/mw690/003oavuVzy7nt2DEYM444&690
（123表格打开后的样子）
http://s6/mw690/003oavuVzy7nt2DZVyZ65&690
（456表格打开后的样子）
http://s10/mw690/003oavuVzy7nt2E9ca559&690
（123、456两个表格使用程序合并后的样子）

从图中可以看到，运行代码后，123表格和456表格的数据自动填写到了《复制同一目录下的不同数据》表格。使用起来非常方便。如有什么问题，或有什么疑问，可以联系我。

微信：13919997919

QQ：9799964

还可以扫描下发的二维码光顾我的小店，欢迎光临！

阅读┊ 收藏 ┊ 喜欢 ▼ ┊打印┊举报/Report