帮我写一个Excel中的VB代码，将所有的sheet中的数据合并到第一个sheet中

最新推荐文章于 2024-09-23 14:52:29 发布

Nate Hillick

最新推荐文章于 2024-09-23 14:52:29 发布

阅读量149

点赞数

文章标签： excel

本文链接：https://blog.csdn.net/weixin_42592399/article/details/129456345

版权

以下是一段 VB 代码，可以将所有 sheet 中的数据合并到第一个 sheet 中：

SubMergeSheets()
  Dim ws As Worksheet
  Dim DestSheet As Worksheet

  Set DestSheet = ThisWorkbook.Sheets(1)

  For Each ws In ThisWorkbook.Sheets
    If ws.Name <> DestSheet.Name Then
      ws.UsedRange.Copy
      DestSheet.Cells(DestSheet.Rows.Cou