|
本帖最后由 chensir 于 2014-3-7 10:18 编辑
请教如何把除(合计)表外的其他表的数据合并到(合计)表内,需要合并的数据是其他表从第7行开始的数据。请教用VBA解决。
- Sub 合计()
- Dim endRow%, i%
- Application.ScreenUpdating = False
- For i = 1 To Sheets.Count
- endRow = Sheets("合计").Cells(Rows.Count, 11).End(3).Row
- If Sheets(i).Name <> "合计" Then
- With Sheets(i)
- .Range("b7", .Cells(Rows.Count, 11).End(3)).Copy Sheets("合计").Cells(endRow + 1, 2)
- End With
- End If
- Next
- Application.ScreenUpdating = True
- End Sub
复制代码
|
|