excel 批量合并多个sheet的数据

最新推荐文章于 2024-08-24 10:07:47 发布

复制粘贴走天下

最新推荐文章于 2024-08-24 10:07:47 发布

阅读量6.5k

点赞数

CC 4.0 BY-SA版权

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

本文链接：https://blog.youkuaiyun.com/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对象）
'返回值：无
'说明：将数据依次粘贴到目标Workbook对象、即EXCEL中。
Private Function MergeContent(targetWorkbook As Workbook)
  Sheet1.Range(Sheet1.Cells(1, 1), Sheet1.Cells(1, 1).End(xlToRight)).Copy _