如何将一个EXCEL中的多个标签页合并到一个标签页里？

15841398789

想把一个excel表中的多个标签页粘贴到一个页中，请大家帮忙~谢谢

望帝春心

1. Sub 汇总()
   
2.     Dim sht As Worksheet, i&, arr
   
3.     For Each sht In Sheets
   
4.         If sht.Name <> "汇总" Then
   
5.             arr = sht.UsedRange.Offset(1, 0)
   
6.             Sheets("汇总").Cells(Rows.Count, 1).End(3). _
   
7.             Offset(1, 0).Resize(UBound(arr), UBound(arr, 2)) = arr
   
8.         End If
   
9.     Next
   
10. End Sub

复制代码

参考代码

望帝春心

参考附件，刚回复的另一个帖子，可能问题一样

15841398789

望帝春心 发表于 2017-1-19 11:25
参考附件，刚回复的另一个帖子，可能问题一样

如图，我想把下面所有标签页中的内容弄到一个表中~~我用了Sub 合并当前工作簿下的所有工作表()

Application.ScreenUpdating = False

For j = 1 To Sheets.Count

   If Sheets(j).Name <> ActiveSheet.Name Then

       X = Range("A65536").End(xlUp).Row + 1

       Sheets(j).UsedRange.Copy Cells(X, 1)

   End If

Next

Range("B1").Select

Application.ScreenUpdating = True

MsgBox "当前工作簿下的全部工作表已经合并完毕！", vbInformation, "提示"

End Sub

之后就把一个表中数据弄到一起了，其它的没有进来是怎么回事，请调教~~急

望帝春心

15841398789 发表于 2017-1-19 11:30
如图，我想把下面所有标签页中的内容弄到一个表中~~我用了Sub 合并当前工作簿下的所有工作表()Applicatio ...

代码似乎没问题，没附件不知道什么原因，不传附件看来你还是不急

15841398789

急，怎么不急啊，我都要疯了，谢谢大神帮忙了~我再最前面插入一个新的标签页，然后复制公式，得到的结果就是把一个标签页的内容弄进来了，后面好多的都没有进来，请问哪里我弄错了，求调教。

望帝春心

15841398789 发表于 2017-1-19 11:43
急，怎么不急啊，我都要疯了，谢谢大神帮忙了~我再最前面插入一个新的标签页，然后复制公式，得到的结果就 ...

1. Sub test()
   
2.     Dim sht As Worksheet, i&, j&, arr
   
3.     For Each sht In Sheets
   
4.         If sht.Name <> "Sheet4" Then
   
5.             i = sht.Cells(2, 1).End(4).Row - 2
   
6.             arr = sht.Cells(2, 1).Offset(1, 0).Resize(i, 21)
   
7.             Sheets("Sheet4").Cells(1, 1).End(4).Offset(1, 0).Resize(i, 21) = arr
   
8.         End If
   
9.     Next
   
10. End Sub

复制代码

望帝春心

1. 参考附件

复制代码