UC知道EXCEL的汇总问题！
来源：百度知道 编辑：UC知道 时间：2024/06/13 21:32:29
我现在有12个分表分别代表12个班级的成绩信息，现在要再建一个汇总表，如何实现在汇总表的对应各栏目里读取那12个分表的数据，而不是一个个表的复制，并且这些数据要实现同步更新，比如分表中的数据发生变化，总表也跟着变化。希望高手帮忙，如果有需要我可以发源文件给你，高分急求解决办法！
其实总表也没什么，和分表的各项栏目是一样的，如姓名，还有学号，班级排名，但是这个不是关键，我要的是前面各分表的数据能够通过一种方式直接录入总表，而不要复制粘贴，因为这样不能实现同步。所以只要告诉我怎么把各个分表的数据直接对应各个栏目导入就可以了。就是说十几个班级的姓名，班级等等都在一个表了，而且前面表一改变，总表也会改变
其实总表也没什么，和分表的各项栏目是一样的，如姓名，还有学号，班级排名，但是这个不是关键，我要的是前面各分表的数据能够通过一种方式直接录入总表，而不要复制粘贴，因为这样不能实现同步。所以只要告诉我怎么把各个分表的数据直接对应各个栏目导入就可以了。就是说十几个班级的姓名，班级等等都在一个表了，而且前面表一改变，总表也会改变
楼主，我刚刚写了一个多表合并的VBA程序，看看您意差不多满足您的要求. VBA代码如下:
Dim sht As Worksheet
Dim rs As Long, js As Long, ds As Long
Dim i As Integer
On Error Resume Next
Set sht = Sheets("汇总")
If Err.Number = 0 Then
Sheets("汇总").Select
ActiveSheet.Range("A1").CurrentRegion.ClearContents
Else
Sheets.Add before:=Sheets(1)
ActiveSheet.Name = "汇总"
End If
Sheets(2).Range("1:1").Copy Sheets("汇总").Range("A1")
For i = 2 To Sheets.Count
ds = Sheets("汇总").Range("A65536").End(xlUp).Row + 1
rs = Sheets(i).Range("A65536").End(xlUp).Row
js = Sheets(i).Range("A1").End(xlToRight).Column
With Sheets(i)
.Select
.Range(Cells(2, 1), Cells(rs, js)).Copy Sheets("汇总").Cells(ds, 1)
End With
Next
Sheets("汇总").Selec