VBA请大师帮忙,解释下每句话的意思,
VBA请大师帮忙,解释下每句话的意思,Sub 合并工作表()Sheets("total").Range("A2:CC65536").ClearFor i = 1 To Sheets.Countrw = Sheets("total").UsedRange.Rows.Count + 1t = Sheets(i).UsedRange.Rows.CountSheets(i).Range("A2:CC" & t).Copy Sheets("total").Range("a" & rw)NextEnd 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行上NextEnd Su
最新回答共有2条回答
-
2026-04-07 16:40:06爱听歌的斑马
回复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行上NextEnd Su
热门文章
- 康达学院专转本五年制
- 高考一个考场分ab卷吗
- not only but also用法
- 某物体做自由落体运动,从释放开始计时,则物体在前2s内的平均速度为______m/s,物体下落2m时的速度大小为______m/s.
- 三角函数公式大全表格
- 地理中考必背知识点2022
- 2013-2014学年小学六年级科学上学期期末考试试卷及答案
- 人教版2014-2015学年小学五年级英语第二学期期中教学质量检测试卷及答案
- 【Linux驱动开发】设备树详解(二)设备树语法详解
- 别跟客户扯细节
- 在别的城市买房子能落户吗
- 卖房前要把装修贷还完吗
- 高中政治教学提高教学效果的方法探究
- “互联网+”背景下的初中英语课堂教学改革与创新策略研究
- 2022年终止合同范本
- 租房合同范本范文
- 如何挑选土豆
- 如何挑选土鸡
