永发信息网

VBA请大师帮忙,解释下每句话的意思,

答案:1  悬赏:20  手机版
解决时间 2021-07-29 10:54
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
最佳答案

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


我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
央行的利率对股市的影响主要表现在哪些方面
怎样点亮我的图标
“文天祥愿留丹心照汗青”的下联是什么
病毒如何传播
华龙区濮阳市卫河路蜜雪坊奶茶店地址有谁知道
关于MP3的开启问题
化学中定容后经荡静置后振液面为什么会下降
怎么才能玩高级?
恶言一句六月寒,良言一句三冬暖,伤人一语六
龙沙区齐齐哈尔国通快递龙沙二部哪位知道具体
土黄色足踝靴配什么样裤子比较好看?
我刚才38.8度,输液降体温,多长时间生效,现
读法律专业的一般可以到哪些单位工作?
怎样为自己减压?
发动机是否大修可根据汽缸圆度大小确定,此时
推荐资讯
上厕所能不能吃东西?
3G手机卡最便宜的业务具体是什么业务?
求“魔兽世界”完整的小说网址(手机的)
孕期用什么护肤品好?十月天使好吗?
适合手机铃声的歌曲
华龙区濮阳中国电信岳村乡4G体验店地址有谁知
qq飞车最高级是201级吗?
甲容器(球形容器)和已容器(水槽)中均为温度比
如何用《题金山画像》来分析苏轼的生平?
n95、n81各多少钱那个好
苏州OPPOMP3的维修点在哪里.?
当阳市宜昌七匹狼(玉阳路)哪位知道具体地址啊
正方形一边上任一点到这个正方形两条对角线的
阴历怎么看 ?