Question

vb或者vba怎么才能让多张表合并为一张表格，格式是一样的。

例如：高一二班 这表表 里有字段有： 学生 学号高一四班 也是 字段有 ：学生 学号....高一十四班土办法的黏贴复制不用用，用vb变成最好，或者用vba也可以我想把他们合并为一张表里。

Answer 1

Sub UnionSheets()
Dim union As Worksheet
Set union = Worksheets.Add(, after:=Worksheets(Worksheets.Count))

Dim i As Integer
i = 2

For Each mySheet In Worksheets
If mySheet.Name = union.Name Then Exit For
For myrow = 2 To mySheet.UsedRange.Rows.Count
mySheet.Rows(myrow).Copy union.Rows(i)
i = i + 1
Next

Next

End Sub