【usedrange】....ClearFori=1ToSheets.Countrw=Sheets(""total"").UsedRange...
答案:2 悬赏:50 手机版
解决时间 2021-02-23 09:35
- 提问者网友：放下
- 2021-02-22 18:19
【usedrange】....ClearFori=1ToSheets.Countrw=Sheets(""total"").UsedRange...
最佳答案
- 五星知识达人网友：零点过十分
- 2021-02-22 18:24
【答案】 Sub 合并工作表()
Sheets(total).Range(A2:CC65536).Clear //把total工作表的A2到CC65536的范围清空
For i = 1 To Sheets.Count //循环每一个工作表
rw = Sheets(total).UsedRange.Rows.Count + 1 //total工作表里面的数据行数+1后赋值给rw（即rw是想要写入新数据的行号）
t = Sheets(i).UsedRange.Rows.Count //工作表的数据行数
Sheets(i).Range(A2:CC & t).Copy Sheets(total).Range(a & rw) //把工作表中A2到CC最后一行的数据,赋值到total工作表的第rw行上
Next
End Sub
Sheets(total).Range(A2:CC65536).Clear //把total工作表的A2到CC65536的范围清空
For i = 1 To Sheets.Count //循环每一个工作表
rw = Sheets(total).UsedRange.Rows.Count + 1 //total工作表里面的数据行数+1后赋值给rw（即rw是想要写入新数据的行号）
t = Sheets(i).UsedRange.Rows.Count //工作表的数据行数
Sheets(i).Range(A2:CC & t).Copy Sheets(total).Range(a & rw) //把工作表中A2到CC最后一行的数据,赋值到total工作表的第rw行上
Next
End Sub
全部回答
- 1楼网友：北城痞子
- 2021-02-22 19:32
感谢回答
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯