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

学习 时间:2026-04-07 16:40:06 阅读:2651
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

最佳回答

无聊的小白菜

飘逸的高跟鞋

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

最新回答共有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

上一篇 用“大方”一词的两个意思造句

下一篇 ABCC式成语有哪些AABC式成语有哪些