使用宏归档单元格区域至另一工作表时丢失范围值引发#REF错误

可能原因及修复步骤 #

1. 排查宏中对ImageList工作表的误操作 #

对比两个宏的代码，重点检查KIDArchiveReset是否包含以下操作：

• 删除/清空ImageList!A3:E区域的内容或行/列
• 移动ImageList工作表的位置
• 重命名ImageList工作表
  如果发现这类操作，调整代码逻辑，避免影响公式引用的目标范围。

2. 修改归档时的复制粘贴方式 #

不要用普通的剪切/粘贴，改用保留公式的粘贴方式，确保引用不被破坏：

' 示例：复制源区域公式到归档目标区域
SourceSheet.Range("你的公式单元格范围").Copy
ArchiveSheet.Range("归档目标范围").PasteSpecial Paste:=xlPasteFormulasAndNumberFormats
' 清除剪贴板状态
Application.CutCopyMode = False

或者直接通过公式赋值的方式：

' 逐个单元格复制公式（适合小范围）
Dim cell As Range
For Each cell In SourceSheet.Range("你的公式单元格范围")
    ArchiveSheet.Cells(cell.Row, cell.Column).Formula = cell.Formula
Next cell

3. 将公式引用改为绝对引用 #

把原公式中的相对引用ImageList!A3:E改为绝对引用，避免宏操作导致的引用偏移：
将公式从：

=iferror(IMAGE(vlookup(C5,ImageList!A3:E,5,0))," ")

修改为（根据实际数据范围调整最大行号，比如$E$1000）：

=iferror(IMAGE(vlookup(C5,ImageList!$A$3:$E$1000,5,0))," ")

测试方法：手动修改一个单元格的公式为绝对引用，运行KIDArchiveReset宏，检查是否还出现#REF错误。

4. 检查宏中是否有修改工作表结构的操作 #

如果KIDArchiveReset宏包含插入/删除行/列的操作（无论是源工作表还是ImageList工作表），相对引用的范围会被破坏。比如删除ImageList的第3行，原引用A3:E就会变成#REF。这种情况要么调整宏的结构修改逻辑，要么强制使用绝对引用。

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