如果将选中的工作表的内容汇总到一个表中

桔梗仙冬月 · 发表于 2018-8-18 14:00

Sub 汇总()
Dim i As Integer, irows As Integer, k As Integer
For Each t In Worksheets
If t.Name = "汇总" Then
      Application.DisplayAlerts = False
      t.Delete
      Application.DisplayAlerts = True
      Exit For
End If
Next
Sheets.Add After:=ActiveSheet
ActiveSheet.Name = "汇总"
Sheets("汇总").Select
Worksheets("汇总").Cells.ClearContents
Worksheets("汇总").Range("a1").Resize(1, 33).Value = Worksheets(1).Range("a1").Resize(1, 33).Value

For i = 1 To Worksheets.Count - 1
irows = Worksheets(i).Range("a1").CurrentRegion.Rows.Count
k = Worksheets("汇总").Range("a1").CurrentRegion.Rows.Count + 1
Worksheets("汇总").Range("a" & k).Resize(irows, 33).Value = Worksheets(i).Range("a1").CurrentRegion.Offset(1, 0).Value

Next i
End Sub
如附件，目前我的代码是将所有工作表的内容复制到汇总表中，如何将我鼠标选定的几个工作表内容复制汇总过去

桔梗仙冬月 · 发表于 2018-8-18 17:24

有没有大神指导啊？？

abc123281 · 发表于 2018-8-18 20:02

For i = 1 To Worksheets.Count - 2

abc123281 · 发表于 2018-8-18 20:05

汇总表没必要删除又新建这是多余的
这种汇总最好用for each循环并使用数组

xiangbaoan · 发表于 2018-8-18 20:19

for each sht In activewindow.selectedsheets
debug.print sht.Name
next

abc123281 · 发表于 2018-8-18 20:24

给你个代码仅供参考

如果是工作表7.7不想参与汇总那么
把 If ws.Name <> "汇总" Then
修改为下面的即可
If ws.Name <> "汇总" And ws.Name <> "7.7" Then

201807初版123.rar (34.28 KB, 下载次数: 3)

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

[求助] 如果将选中的工作表的内容汇总到一个表中