![060315676b5b74836fe2aeedfc9a966d.png](https://i-blog.csdnimg.cn/blog_migrate/d73b7325013d13c9ccced413da4f7204.jpeg)
* 西玛小课堂·免费视频课 *
电子表格实用技能演示 PPT课件制作技巧 照片图像处理实战 语音文件编辑技巧 公众号文章排版实战 标志、字体设计技巧 平面广告设计技能 快闪动画制作技巧 实用小软件使用介绍
![c78fd6a4505e865dde519c20941afca4.png](https://i-blog.csdnimg.cn/blog_migrate/0488328220255d12f47a37446490ebdc.jpeg)
视频演示 ↑
( 温馨提示:可在电脑浏览器端输入 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 下期预告
新主题系列视频讲解演示
猜您喜欢 往期精选▼如何将电子表格处理成图片?
如何将“纸质表”瞬间转为“可编辑表”?
电子表格数据筛选查找的技巧
与身份证号相关的表格数据处理技巧
单元格数据技巧之"三国团队"战绩
说说“打印”表格数据这事儿
表格操作之“不比较就没有发现”
你真的会设计这张电子表格吗?
如何设计出“人性化”的电子表格
写在后面
好多读者还有没养成点赞的习惯,希望大家在浏览结束后顺手点“在看”并转发,以表支持!
长期坚持原创真的很不容易,多次想放弃。然而坚持是一种信仰,专注是一种态度。在此,感谢您对西玛小课堂的支持和鼓励。
看免费视频 · 学实用技能
就关注西玛小课堂