vba Cells(Rows.Count, 3).End(xlUp))在非焦点文件时，运行错误“1004”，应用程序定义或对象定义错误

Question

'选择目标工作表最大行数

            MaxRowMsg = Workbooks(WorkName).Sheets(SheetName).Range("a2", Cells(Rows.Count, 3 + i).End(xlUp)).Rows.Count + 1

Answer 1

回答不易，求求您采纳点赞哦

这个错误可能是因为在非焦点文件中使用了 Worksheets(SheetName) 对象。试试在它前面加上对工作簿的引用：

MaxRowMsg = Workbooks(WorkName).Sheets(SheetName).Range("a2", Workbooks(WorkName).Sheets(SheetName).Cells(Rows.Count, 3 + i).End(xlUp)).Rows.Count + 1