VBA请大师帮忙,解释下每句话的意思,
Sub 合并工作表()
Sheets(total).Range(A2:CC65536).Clear
For i = 1 To Sheets.Count
rw = Sheets(total).UsedRange.Rows.Count + 1
t = Sheets(i).UsedRange.Rows.Count
Sheets(i).Range(A2:CC & t).Copy Sheets(total).Range(a & rw)
Next
End Sub
VBA请大师帮忙,解释下每句话的意思,
答案:1 悬赏:20 手机版
解决时间 2021-07-29 10:54
- 提问者网友:斑駁影
- 2021-07-29 02:51
最佳答案
- 五星知识达人网友:毛毛
- 2021-07-29 04:08
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 Su
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯