excel 批量合并多个sheet的数据

复制粘贴走天下

于 2019-02-06 20:00:21 发布

阅读量6.5k

点赞数

分类专栏： Excel 文章标签： Excel VBA

本文链接：https://blog.csdn.net/wangzz0427/article/details/86769106

版权

这篇博客介绍了如何利用VBA编写两个函数， Creatworkbook 和 MergeContent，来实现批量合并Excel文件中的多个Sheet。通过创建新Excel并命名以日期和时间，将所有Sheet的内容整合到一起。当源数据变动时，只需重新运行代码即可完成更新。文章还提供了操作的动图辅助理解。

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

Sub Run()
  Dim tar_wb As Workbook
  Set tar_wb = CreateWorkbook
  Call MergeContent(tar_wb)
End Sub

'函数名: CreateWorkbook
'接受参数：无
'返回值：Workbook（返回创建的Workbook）
'说明：创建一个Excel文件，存放合并的数据
Private Function CreateWorkbook() As Workbook
  Dim fileName As String
  Dim filePath As String
  Dim nowDate As String
  
  nowDate = CDate(Now())
  nowDate = Replace(nowDate, ":", "")
  nowDate = Replace(nowDate, "/", "")
  nowDate = Replace(nowDate, " ", "_")
  
  filePath = ThisWorkbook.path & "\"
  fileName = filePath & nowDate & "_汇总表.xlsx"
  
  
  Dim newBook As Workbook
  Set newBook = Workbooks.Add
     
  With newBook
   .SaveAs fileName
  End With
  
  Set CreateWorkbook = newBook
End Function

'函数名: MergeContent
'接受参数：targetWorkbook（合并后的数据存放的Workbook对象）

最低0.47元/天解锁文章