将不同工作表数据批量汇总至同一工作表的方法

1、以下图为例，需要将第二个工作表到最后一个工作表的姓名和成绩汇总至第一个工作表中。

4、在空白处输入如下代码并保存Option ExplicitSub huizong()Dim i, n, s, mDim w1 As Worksheet, w2 As WorksheetSet w2 = Worksheets(1)m = 2For i = 2 To Worksheets.Count Set w1 = Worksheets(i) n = w1.Cells(1, 2) s = w1.Cells(2, 3) w2.Cells(m, 1) = n w2.Cells(m, 2) = s m = m + 1 Next iEnd Sub

6、运行“汇总”控件，可以看到汇总快速完成并自动显示出来。