哪位大侠帮我解释下下面的代码,尤其是第8行?Range("a65536").End(xlUp).Offset(2, 0)是什么意思?谢谢!Do While dirname ""If dirname nm ThenWorkbooks.Open Filename:=lj & "\" & dirnameii = ActiveWorkbook.Sheets.CountWorkbooks(nm).A

来源:学生作业帮助网 编辑:六六作业网 时间:2024/12/25 10:46:09
哪位大侠帮我解释下下面的代码,尤其是第8行?Range("a65536").End(xlUp).Offset(2,0)是什么意思?谢谢!DoWhiledirname""IfdirnamenmThenW

哪位大侠帮我解释下下面的代码,尤其是第8行?Range("a65536").End(xlUp).Offset(2, 0)是什么意思?谢谢!Do While dirname ""If dirname nm ThenWorkbooks.Open Filename:=lj & "\" & dirnameii = ActiveWorkbook.Sheets.CountWorkbooks(nm).A
哪位大侠帮我解释下下面的代码,尤其是第8行?Range("a65536").End(xlUp).Offset(2, 0)是什么意思?谢谢!
Do While dirname ""
If dirname nm Then
Workbooks.Open Filename:=lj & "\" & dirname
ii = ActiveWorkbook.Sheets.Count
Workbooks(nm).Activate
'复制新打开工作簿的每一个工作表的已用区域到当前工作表
For i = 1 To ii
Workbooks(dirname).Sheets(i).UsedRange.Copy Range("a65536").End(xlUp).Offset(2, 0)
Next
Workbooks(dirname).Close False
End If
dirname = Dir
Loop
End Sub

哪位大侠帮我解释下下面的代码,尤其是第8行?Range("a65536").End(xlUp).Offset(2, 0)是什么意思?谢谢!Do While dirname ""If dirname nm ThenWorkbooks.Open Filename:=lj & "\" & dirnameii = ActiveWorkbook.Sheets.CountWorkbooks(nm).A
抱歉!这个问题不懂哦,请再加油吧!