嘿，我来帮你拆解这个困扰你的1004错误！这种问题在VBA操作单元格范围时很常见，咱们从几个核心方向逐一排查：

一、变量类型与取值范围问题 #

• 变量声明不规范：首先检查Row和DataRow的类型，Excel的行数可能超过Integer的上限（32767），建议明确声明为Long类型，避免溢出或类型不匹配：

  Dim targetRow As Long, sourceRow As Long ' 尽量不用Row这类易混淆的命名
  

• 取值超出有效范围：确认targetRow（原Row）必须在1到Rng2.Rows.Count之间，sourceRow（原DataRow）必须在1到DataRng.Rows.Count之间。如果变量取了0、负数或者大于范围总行数的值，就会触发1004错误。

二、范围对象的有效性问题 #

• 未绑定明确的工作表：如果你的Rng2和DataRng没有指定具体工作表，当激活的工作表切换时，范围可能指向错误的区域。一定要加上工作表引用：

  Dim ws As Worksheet
  Set ws = ThisWorkbook.Worksheets("你的工作表名称")
  Set Rng2 = ws.Range("A1:C100") ' 替换为你的实际目标范围
  Set DataRng = ws.Range("E1:G200") ' 替换为你的实际数据源范围
  

• 源行与目标行列数不匹配：Rng2.Rows(targetRow)和DataRng.Rows(sourceRow)的列数必须完全一致，否则整行赋值会失败。比如源行有5列但目标行只有3列，就会触发错误。

三、工作表保护或单元格锁定 #

如果Rng2所在的工作表处于保护状态，或者目标单元格被锁定，宏的写入操作会被阻止。可以临时解除保护再执行赋值：

ws.Unprotect Password:="你的保护密码" ' 无密码可省略Password参数
Rng2.Rows(targetRow).Value = DataRng.Rows(sourceRow).Value
ws.Protect Password:="你的保护密码"

四、其他隐性坑点 #

• 避免使用关键字作为变量名：虽然Row不是VBA保留字，但用这类容易和对象属性混淆的命名可能引发隐性错误，换成targetRow、sourceRow会更安全。
• 合并单元格的影响：如果Rng2或DataRng包含合并单元格，整行赋值会因为区域结构不匹配而出错。这种情况建议逐列赋值，或者先取消合并单元格再操作。

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