帮忙翻译解释一下什么意思

wjhelijun

Sub 合并数据()
Application.ScreenUpdating = False

Dim i
Dim j
Sheet17.Range("a1:ah2000") = ""
For i = 3 To Sheets.Count
If Sheets(i).Name <> "合并数据" Then
j = Sheets(i).[a65536].End(3).Row
Sheets(i).Select
Range("a1:I" & j).Select
Selection.Copy
Sheet17.Select
k = Sheet17.[a65536].End(3).Row + 1
Range("a" & k).Select
ActiveSheet.Paste
End If
Next
Application.ScreenUpdating = True

End Sub

dajiahaoxinku12

把同一工作薄中多张工作表的数据合并到一个名字叫“合并数据”工作表的工作表里