运行时错误"424"：使用此工作簿时出现"对象必需"错误

Question

下面的代码出现Run-time error '424': Object Required错误。

Sub GetData()
ThisWorkbook.Worksheets(1).Range("A" & Rows.Count).End(xlUp).Offset(1).Row.Value = ActiveWorkbook.Name
ThisWorkbook.Worksheets(1).Range("B" & Rows.Count).End(xlUp).Offset(1).Row.Value = ActiveWorkbook.Worksheets(2).Cells(Rows.Count, "A").End(xlUp).Row
End Sub

Answer 1

去掉.Row-这返回的行号不是对单元格的引用

Sub GetData()
With ThisWorkbook.Worksheets(1)
.Range("A" & Rows.Count).End(xlUp).Offset(1).Value2 = ActiveWorkbook.Name
.Range("B" & Rows.Count).End(xlUp).Offset(1).Value2 = ActiveWorkbook.Worksheets(2).Cells(Rows.Count, "A").End(xlUp).Row
End With
End Sub