[已解决]一个简单的工作表合并问题，谢谢！

bipl607 · 发表于 2013-6-30 12:24

如何用宏将工作表Sheet2，Sheet3，Sheet4，。。。依次按顺序合并到工作表Sheet1中，
实际作用中有很多工作表的啊！，谢谢！

最佳答案

月排行榜 / 总排行榜

lisachen

2013-6-30 12:45

合并工作表.rar (21.03 KB, 下载次数: 53)

ligh1298 · 发表于 2013-6-30 12:42

你这个用VBA可以办到，各表中数据有重复吗？需要去重复吗（多个重复只保留一个）？

lisachen · 发表于 2013-6-30 12:45

这个最佳答案由 lisachen 给出，感谢 lisachen 的回答。

单击隐藏图章

合并工作表.rar (21.03 KB, 下载次数: 53)

张雄友 · 发表于 2013-6-30 12:59

lisachen 发表于 2013-6-30 12:45

没反应的？

bipl607 · 发表于 2013-6-30 13:03

还年轻，有反应的，但我得试试啊，先谢谢楼上的朋友！

youfang · 发表于 2013-6-30 13:05

你新增了工作表，顺序又打乱了，代码你又不稍改一下，肯定没反应了。
把代码中的Sheet1改为合并

张雄友 · 发表于 2013-6-30 13:07

youfang 发表于 2013-6-30 13:05
你新增了工作表，顺序又打乱了，代码你又不稍改一下，肯定没反应了。
把代码中的Sheet1改为合并

改了还是错的。

bipl607 · 发表于 2013-6-30 13:14

4楼的可行
Sub 合并()
Dim sh As Worksheet
Range("a1:a65536").ClearContents
For Each sh In Worksheets
      irow = Sheets("sheet1").Range("a65536").End(3).Row + 1
      If sh.Name <> "Sheet1" Then
         sh.UsedRange.Copy Sheets("sheet1").Cells(irow, 1)
      End If
Next
End Sub

bipl607 · 发表于 2013-6-30 13:17

4楼的代码与3楼版主的不谋而合，谢谢楼上各位，谢谢！

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