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 She

来源:学生作业帮助网 编辑:作业帮 时间:2024/04/30 01:50:42
VBA请大师帮忙,解释下每句话的意思,Sub 合并工作表()Sheets(

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 She
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请大师帮忙,解释下每句话的意思,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 She
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