[已解决]同一工作薄中多张工作表合并

jipingzhuang

怎样将同张工作薄中得多张表内容合并到一张工作表里面，格式一样。。？

最佳答案

月排行榜 / 总排行榜

lyf7276

2013-5-4 15:12

Sub 合并工作表()

For s = 2 To Sheets.Count
mm = Sheets(1).UsedRange.Rows.Count
For i = 1 To Sheets(s).UsedRange.Rows.Count

Sheets(s).Range("a" & i).EntireRow.Copy Sheets(1).Range("a" & mm + i).EntireRow
Next
Next
End Sub

跳转到最佳答案楼层

yinying168

我也想和你一同学习这个问题。

lyf7276

Sub 合并工作表()

For s = 2 To Sheets.Count
mm = Sheets(1).UsedRange.Rows.Count
For i = 1 To Sheets(s).UsedRange.Rows.Count

Sheets(s).Range("a" & i).EntireRow.Copy Sheets(1).Range("a" & mm + i).EntireRow
Next
Next
End Sub

ljshdshx

马铃薯

我也想学，最好用最简单的方法，复杂的看不懂