【usedrange】....ClearFori=1ToSheets.Countrw=Sheets(""total"").UsedRange...

发布时间：2021-03-26 16:01:43

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行上
　　Next
　　End Sub
以上问题属网友观点，不代表本站立场，仅供参考！