求助：如何将分表记录汇总至总表

babysohot

求助各位大大，一个月度工作簿里有数个日报表。
如何实现日报表信息记录统一复制至月度总表。且，日报表更新时，月度总表自动更新。

dengjq2000

这问题通过VBA来实现比较方便。

1. Sub hebing()
   
2.     MsgBox "下面将把日期合并到“月度总表”当中!"
   
3.     Rows("2:65536").Clear
   
4.     Dim sht As Worksheet, xrow As Integer, rng As Range
   
5.     For Each sht In Worksheets
   
6.         If sht.Name <> ActiveSheet.Name Then
   
7.             Set rng = Range("A65536").End(xlUp).Offset(1, 0)
   
8.             xrow = sht.Range("A1").CurrentRegion.Rows.Count - 1
   
9.             sht.Range("A2").Resize(xrow, 25).Copy rng
   
10.         End If
    
11.     Next
    
12. End Sub
    

复制代码

dengjq2000

VBA源文件：

zuyong2

如何能按姓名排在一起呢？

chai19870227

dengjq2000 发表于 2017-5-6 13:51
这问题通过VBA来实现比较方便。

这个代码写的好  不会重复  每次录入新的数据后  不会有重复

wqwqwqwqwq

VBA不是太明白，有没有通过EXCEL解决的

缠迷

dengjq2000 发表于 2017-5-6 13:54
VBA源文件：

学习了。谢谢

dengjq2000

chai19870227 发表于 2019-11-17 15:36
这个代码写的好  不会重复  每次录入新的数据后  不会有重复

通过这  Rows("2:65536").Clear 对数据进行清除。