怎样合并excel中的各个页面[

Question

一个excel文件中有，sheet1,sheet2,sheet3.....,
每个页面的格式都是一样的
请问怎样可以把这些页面合并在一个页面中呢？
急。。请大家帮忙。万分感谢

Answer 1

我以前做都是把各个sheet读一遍，再重新写到一个sheet里面，不知道有没有其它更好的办法 

Answer 2

写程序去实现当然是可以的,如果不用程序呢?
在宏里面写VBA应该是可以的,可惜小弟还不会弄.

Answer 3

已经用vba解决了Sub 合并sheets()
  n = 184 '源表个数，根据需要修改！
  nstart = 3 '每个单表数据的开始行数，根据需要修改！
  k = 1
  For i = 1 To n
  irow = nstart '行标
  While Sheets(i).Cells(irow + 1, 2) <> "" '统计每个sheet的行数
  irow = irow + 1
  Wend
  Sheets(i).Rows(nstart + 1 & ":" & irow).Copy '复制源数据行
  Sheets(n + 1).Activate
  Sheets(n + 1).Cells(k, 1).Select
  ActiveSheet.Paste '粘贴数据
  k = k + irow - nstart
  Next i
End Sub