VBA请大师帮忙,解释下每句话的意思,Sub合并工作表()Sheets("total").Range("A2:CC65536").ClearFori=1ToSheets.Countrw=Sheets("total").UsedRange.Rows.Count+1t=Sheets(i).UsedRange.Rows.CountSheets(i).Range("A2:CC"&t).CopyShe

Question

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

Answer 1

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