求一个合并多个表格内容的代码

rendao30 · 发表于 2022-12-26 11:27

各位前辈，小弟工作中遇到一个棘手问题，需要将一个EXCEL中多个Sheet合并成一个Sheet，求各位前辈赐一段代码，非常感谢！！

求助.zip (20.95 KB, 下载次数: 7)

3190496160 · 发表于 2022-12-26 11:53

Sub 合并()
Application.ScreenUpdating = False
Set sh = Sheets("全部合并")
sh.UsedRange.Clear
For Each sht In Sheets
If sht.Name <> "全部合并" Then
      m = m + 1
      If m = 1 Then
         sht.[a1].CurrentRegion.Copy sh.[a1]
      Else
         r = sh.Cells(Rows.Count, 1).End(xlUp).Row + 1
         sht.[a1].CurrentRegion.Offset(1).Copy sh.Cells(r, 1)
      End If
End If
Next sht
Application.ScreenUpdating = True
MsgBox "ok!"
End Sub

3190496160 · 发表于 2022-12-26 11:54

求助.rar (37.91 KB, 下载次数: 15)

yellowhawk · 发表于 2022-12-26 12:14

类似这样的，改一下代码就行了
Sub sum_data()
Sheets("汇总表").Select
Range("A2").Select
Dim i As Integer
For i = 1 To Sheets.Count
      If Sheets(i).Name <> "汇总表" Then
         Sheets(i).Select
         Cells.Select
         Selection.Copy
         Sheets("汇总表").Select
         ActiveSheet.Paste
         Range("A2").Select
      End If
Next
End Sub

gwjkkkkk · 发表于 2022-12-26 14:53

请楼主参考附件。。。

mmwwdd · 发表于 2022-12-27 09:34

mmwwdd · 发表于 2022-12-27 09:35

是这样吗?多表合并!

cai2532 · 发表于 2022-12-27 14:35

学习学习，厉害。

		自动登录	找回密码
密码			免费注册

[求助] 求一个合并多个表格内容的代码

评分