* 西玛小课堂·免费视频课 * 

电子表格实用技能演示   PPT课件制作技巧   照片图像处理实战   语音文件编辑技巧   公众号文章排版实战   标志、字体设计技巧   平面广告设计技能   快闪动画制作技巧   实用小软件使用介绍

视频演示 ↑

( 温馨提示：可在电脑浏览器端输入 https://weixin.sogou.com ，再搜索西玛小课堂，即可观看清晰大屏视频课程 )

今日技能：电子表格实用技巧(十二)

—— 如何将多个工作簿合并为一张工作表

实用系数：★★★★★

难度系数：★★☆☆☆

所用软件：WPS2019表格处理软件

 01    课程介绍 

很多时候

我们需要将收集上报来的

多个工作簿中的

相同表

合并成一张表

今天的演示课程

将告诉你

如何用vba代码

快速、高效去实现它

vba代码如下：

Sub 合并多个工作薄中的特定表到新工作簿中的一张表中()

On Error Resume Next

Dim SummarySheet As Worksheet '汇总表

Dim SelectedFiles() As Variant  '选择的文件集合

Dim Nrow As Long

Dim FileName As String

Dim NFile As Long

Dim WorkBk As Workbook

Dim SourceRange As Range

Dim DestRange As Range

Set SummarySheet = ThisWorkbook.Worksheets(1)

SelectedFiles = Application.GetOpenFilename(filefilter:="Excel 文件(*.xl*),*.xl*", MultiSelect:=True)

Nrow = 1

For NFile = LBound(SelectedFiles) To UBound(SelectedFiles)

FileName = SelectedFiles(NFile)

Set WorkBk = Workbooks.Open(FileName)

Set SourceRange = WorkBk.Worksheets(1).UsedRange

Set DestRange = SummarySheet.Range("A" & Nrow)

Set DestRange = DestRange.Resize(SourceRange.Rows.Count, SourceRange.Columns.Count)

DestRange.Value = SourceRange.Value

Nrow = Nrow + DestRange.Rows.Count

WorkBk.Close savechanges:=False

Next

SummarySheet.Columns.AutoFit

End Sub

 02    演示截图 

图一：本期小课堂内容纲要 ↑

图二：vba代码图 ↑

图三：多个工作簿合并到一张工作表 ↑

 03    下期预告 

新主题系列视频讲解演示

猜您喜欢往期精选▼

如何将电子表格处理成图片？

如何将“纸质表”瞬间转为“可编辑表”？

电子表格数据筛选查找的技巧

与身份证号相关的表格数据处理技巧

单元格数据技巧之"三国团队"战绩

说说“打印”表格数据这事儿

表格操作之“不比较就没有发现”

你真的会设计这张电子表格吗？

如何设计出“人性化”的电子表格

写在后面

好多读者还有没养成点赞的习惯，希望大家在浏览结束后顺手点“在看”并转发，以表支持！

长期坚持原创真的很不容易，多次想放弃。然而坚持是一种信仰，专注是一种态度。在此，感谢您对西玛小课堂的支持和鼓励。

看免费视频 · 学实用技能

就关注西玛小课堂