VBA复制动态范围时Worksheet对象Method Range失败问题求助

嘿，这个问题我之前也踩过坑！你遇到的报错根源其实很简单——没有给Cells对象指定明确的父工作表。

当你写SL.Range(Cells(i, 1), Cells(i, 3))时，Cells(i,1)默认会指向当前激活的工作表，而不是你想要的SL工作表。这就导致Range的父对象混乱（一部分属于SL，一部分属于活动表），VBA自然会抛出错误。另外，你原代码里的If Not (found Is Nothing)后面漏了Then，这也是语法错误，得补上。

给你几个修正后的可行方案：

方案1：明确指定Cells的父对象 #

直接把Cells绑定到SL工作表，确保整个Range的父对象统一：

For i = 2 To lastRow
    Set found = WC.Range("O1:O" & LastInList).Find(SL.Range("G" & i))
    If Not found Is Nothing Then
        ' 明确让Cells属于SL工作表
        SL.Range(SL.Cells(i, 1), SL.Cells(i, 3)).Copy Destination:=WC.Range("A" & WCEmptyRow)
        WCEmptyRow = WCEmptyRow + 1 ' 别忘了更新空行号，不然会覆盖之前的数据
    Else
        ' 处理不满足条件的逻辑
    End If
Next i

方案2：用字符串拼接的方式（修正后版本） #

你之前尝试的字符串引用其实本身没问题，但要确保i的取值正确，同时补上Then和更新行号：

For i = 2 To lastRow
    Set found = WC.Range("O1:O" & LastInList).Find(SL.Range("G" & i))
    If Not found Is Nothing Then
        SL.Range("A" & i & ":C" & i).Copy Destination:=WC.Range("A" & WCEmptyRow)
        WCEmptyRow = WCEmptyRow + 1
    Else
        ' 处理不满足条件的逻辑
    End If
Next i

额外优化建议 #

• 推荐在代码开头加上Option Explicit，强制声明所有变量，能帮你避免很多隐性错误；
• 可以用Resize方法简化单元格范围引用，写法更简洁：

  SL.Cells(i, 1).Resize(1, 3).Copy Destination:=WC.Range("A" & WCEmptyRow)
  

• 确保WCEmptyRow已经正确初始化（比如WCEmptyRow = WC.Cells(WC.Rows.Count, "A").End(xlUp).Row + 1），不然可能会从错误的行开始复制。

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