如何将excel多张表的行信息合并到一张表上(vba)

Sub 汇集数据()
Dim s As Worksheet
c=1
For Each s In ThisWorkbook.Worksheets
With s
If .Name <> "汇总表" Then '假设存放结果的工作表叫“汇总表”，如果不是请做相应修改
c = c + 1
For i=1 to 10 '假设你有10列数据要拷到汇总表
Sheets("汇总表").Cells(c, i) =s.Cells(37, i)
Next i
End If
End With
Next
End Sub

以下为代码及注释：
Sub main()
k=1
For Each s In ThisWorkbook.Worksheets'遍历所有工作表
With s
If .Name <> "汇总表" Then '如果工作表名字不是“汇总表”
k = k + 1‘k进行累加
For i=1 to 10 '循环拷贝
Sheets("汇总表").Cells(k, i) =s.Cells(37, i) '汇总表中从第一行累加，1-10列依次等于其他各个工作表中的37行1-10列
Next i
End If
End With
Next
End Sub