VBA报错‘Method 'Range' of object: '_worksheet' failed’排查求助

错误核心原因 #

你遇到的Method 'Range' of object: '_worksheet' failed错误，最可能是因为lastcopyRow的值小于2，导致你试图创建一个起始行大于结束行的无效单元格区域（比如J2:N1），Excel无法识别这种反向范围，因此抛出错误。

举个典型场景：当QC Production Live Log Import工作表的J列从J2往下没有任何数据时，sourceSheet.Range("J2:J" & Rows.Count).End(xlUp).Row会返回1（即J1的行号），此时J2:N1是完全无效的Range，自然触发报错。

修复步骤 #

1. 增加数据存在性判断
   在计算完lastcopyRow之后，添加一行判断，确保只有存在有效数据时才继续执行：

lastcopyRow = sourceSheet.Range("J2:J" & Rows.Count).End(xlUp).Row
' 新增判断：如果J2以下无数据，直接退出宏
If lastcopyRow < 2 Then Exit Sub
Set sourceRange = sourceSheet.Range("J2:N" & lastcopyRow)

2. 优化行号获取逻辑（可选）
   你可以把获取J列最后一行的代码改成更可靠的写法，避免因Range写法引发的潜在问题：

' 从J列最后一行向上查找最后一个非空单元格的行号
lastcopyRow = sourceSheet.Cells(sourceSheet.Rows.Count, "J").End(xlUp).Row

额外提示（针对后续优化） #

你提到之后会修改代码避免激活工作表，这里提前给个简化的复制粘贴写法（无需激活/选中）：

' 直接复制值和格式，跳过激活/选中步骤
sourceRange.Copy
destinationSheet.Cells(destinationSheet.Rows.Count, "A").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValuesAndNumberFormats

内容的提问来源于stack exchange，提问作者KolOfIbis