[已解决]多表内容汇总到一表

xwj8688

book2.zip (46.48 KB, 下载次数: 10)

2014-10-18 14:19 上传

点击文件名下载附件

如何让此工作薄中每张工作表的内容按要求汇总到最后的汇总表中？

要求在汇总表中把前面每张工作表中的A3-D21,  H3-K21单元格中的内容按工作表顺序复制到汇总表下，而不用去点开每一个工作表去复制的方法，想一下子从这些工作表中把这些单元格中的内容复制copy过去，有什么好方法吗？

求助大侠！

最佳答案

月排行榜 / 总排行榜

baksy

2014-10-18 18:51

xwj8688 发表于 2014-10-18 16:46
请问老师你所用的函数公式能否做到保留工作表原名（而不改变工作表的名称为1-7）吗？

公式变长了。

跳转到最佳答案楼层

hupin6331

你在汇总表里手工做一个你要的结果

uceadf

1. Private Sub CommandButton1_Click()
   
2.     Dim ws As Worksheet
   
3.     For Each ws In ThisWorkbook.Sheets
   
4.         If ws.Name <> "汇总表" Then
   
5. 
   
6.             ws.Range("a3").Resize(21 - 2, 7).Copy
   
7.             ThisWorkbook.Sheets("汇总表").Range("a65536").End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
   
8. 
   
9.             ws.Range("h3").Resize(21 - 2, 7).Copy
   
10.             ThisWorkbook.Sheets("汇总表").Range("a65536").End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
    
11. 
    
12.         End If
    
13.     Next
    
14. End Sub

复制代码

baksy

看附件。

xwj8688

baksy 发表于 2014-10-18 15:13
看附件。

谢谢老师回复，可是我是想要四列的效果，不是8列的效果，如图

xwj8688

uceadf 发表于 2014-10-18 15:13

请问大侠这段代码在哪里什么位置输入？

uceadf

xwj8688 发表于 2014-10-18 15:26
请问大侠这段代码在哪里什么位置输入？

这不是一个按钮么

baksy

xwj8688 发表于 2014-10-18 15:20
谢谢老师回复，可是我是想要四列的效果，不是8列的效果，如图

附件

su45

book2.zip (60.9 KB, 下载次数: 11)

2014-10-18 16:18 上传

点击文件名下载附件

xwj8688

uceadf 发表于 2014-10-18 15:31
这不是一个按钮么

请问若我需要在前几个的工作表中做某些数据和内容的修改或在汇总表前要插入另几个相同格式不同内容和数据的工作表请问该怎么刷新？还是这2个操作都需要重新再设置新的代码？