美文网首页
一个Excel工作薄的多个Sheet表汇总到一个Sheet表内

一个Excel工作薄的多个Sheet表汇总到一个Sheet表内

作者: 阿然学编程 | 来源:发表于2021-06-16 14:16 被阅读0次
Sub 将多个Sheet表汇总到一个Sheet表内()
   Application.ScreenUpdating = False
   For j = 1 To Sheets.Count
       If Sheets(j).Name <> ActiveSheet.Name Then
          X = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count
          Sheets(j).UsedRange.Copy ActiveSheet.Cells(X, 1)
       End If
   Next
   Application.ScreenUpdating = True
   MsgBox "所有Sheet表已汇总完成!"
End Sub

相关文章

网友评论

      本文标题:一个Excel工作薄的多个Sheet表汇总到一个Sheet表内

      本文链接:https://www.haomeiwen.com/subject/gmffyltx.html