合并表格vba

香蕉草莓

于 2016-11-22 15:51:45 发布

阅读量706

点赞数

CC 4.0 BY-SA版权

分类专栏： excel

本文链接：https://blog.csdn.net/ll_6688/article/details/53286994

excel 专栏收录该内容

18 篇文章

订阅专栏

本篇博客介绍了如何通过VBA宏来合并多个Excel工作簿的数据。首先，打开一个空白工作簿并在Sheet1中存储合并数据。接着，进入VBA编辑器，创建名为'combin'的子程序。在程序中，通过getopenfilename函数选择要合并的文件，然后遍历每个文件，将数据复制到主工作簿的Sheet1中。最后，关闭源文件并显示提示消息，告知用户已成功完成合并。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

1 打开一个空白的工作簿文件
2 使用该工作簿的Sheet1存放合并后的所有数据行
3 按下<Alt +F11>组合键，打开VBA编辑窗口
4 左侧的工程资源列表中选中工作表Sheet1
5 单击鼠标右键，【查看代码】输入

Sub combin()
dim a as integer
dim TempWk as workbook
dim StartRw as long
dim EndRw as long
dim CurRow as long
filestoopen=application.getopenfilename(filefilter:="Microsoft Excel Files(*.xls;*.xlsx),*.xls;*.xlsx",multiselect:=true,title:="请选择需要合并的工作簿")
if typename(filestoopen)="Boolean" then exit sub
i=1
while i<=ubound(filestoopen)
set TempWk=workbooks.open(filename:=filestoopen(i))
if range("A1048576").end(xlup).row=1 then
StartRw=1
CurRow=1
else
StartRw=2
CurRow=range("A1048576").end(xlup).row+1
end if
EndRw=TempWk.sheets("Sheet1").range("A1048576").end(xlup).row
range(CurRow & ":" & CurRow+EndRw-StartRw).value=TempWk.sheets("Sheet1").range(StartRw & ":" & EndRw).value
TempWk.close false
i=i+1
wend
set TempWk=nothing
msgbox"已完成合并！"
end sub

<Alt+F8>在宏对话框中看到这个程序，【执行】就ok