[已解决]如何实现多sheet合一？

cxngd

如何才能实现excel中的多个格式相同的sheet合并成一个汇总sheet?

最佳答案

月排行榜 / 总排行榜

望帝春心

2017-1-13 10:27

1. Sub test()
   
2.     ActiveSheet.UsedRange.ClearContents
   
3.     Dim countalla, countthis As Integer
   
4.     countallb = 0
   
5.     countthis = 0
   
6.     For i = 1 To Sheets.Count
   
7.         If Sheets(i).Name <> ActiveSheet.Name Then
   
8.            countthis = Sheets(i).UsedRange.Rows.Count
   
9.            Sheets(i).UsedRange.Copy [a65536].End(xlUp).Offset(1, 1)
   
10.            countallb = countallb + countthis
    
11.            ActiveSheet.Range("a" & countallb, Range("a" & countallb).End(xlUp).Offset(1, 0)).Value = Sheets(i).Name
    
12.         End If
    
13.     Next i
    
14. End Sub

复制代码

百度供参考

跳转到最佳答案楼层

望帝春心

1. Sub test()
   
2.     ActiveSheet.UsedRange.ClearContents
   
3.     Dim countalla, countthis As Integer
   
4.     countallb = 0
   
5.     countthis = 0
   
6.     For i = 1 To Sheets.Count
   
7.         If Sheets(i).Name <> ActiveSheet.Name Then
   
8.            countthis = Sheets(i).UsedRange.Rows.Count
   
9.            Sheets(i).UsedRange.Copy [a65536].End(xlUp).Offset(1, 1)
   
10.            countallb = countallb + countthis
    
11.            ActiveSheet.Range("a" & countallb, Range("a" & countallb).End(xlUp).Offset(1, 0)).Value = Sheets(i).Name
    
12.         End If
    
13.     Next i
    
14. End Sub

复制代码

百度供参考

cxngd

首先，非常感谢您的详细回复。但我想问一下如果是WPS是不是也是复制粘贴即可？刚刚试了一下，不行，因为我的Excel打不开。

望帝春心

cxngd 发表于 2017-1-13 12:07
首先，非常感谢您的详细回复。但我想问一下如果是WPS是不是也是复制粘贴即可？刚刚试了一下，不行，因为我 ...

WPS没用过，大概是不支持VBA吧

苏子龙

wps要现在vba附件安装的，安装好了就能运行vba代码了

苏子龙

格式一样可以试试sql的union all

cxngd

谢谢

cxngd

感谢各件的帮助。