VBA 1004错误排查：跨工作表区域引用赋值问题

错误根源分析 #

你的代码触发1004错误主要有两个核心问题：

• 未明确指定Range的父工作表：Range("LivePaste")和跨表区域引用的Range(Sheets(sht).Cells(...))都默认使用当前活动工作表，一旦活动表不是目标/源工作表，就会触发引用错误。
• 跨工作表区域引用语法错误：直接用Range(Sheets(sht).Cells(...))会被解析为“在活动工作表中引用其他工作表的单元格”，这是不符合VBA语法规范的。

修正后的代码 #

Sub LiveCopyPaste()
    Dim sht As String
    Dim row_start As Long
    Dim row_end As Long
    Dim col_start As Long
    Dim col_end As Long
    Dim srcRange As Range
    Dim destRange As Range
    
    ' 统一读取Live工作表的参数，避免歧义
    With Sheets("LIVE")
        sht = .Range("B3").Value
        row_start = .Range("K4").Value
        row_end = .Range("K5").Value
        col_start = .Range("M4").Value
        col_end = .Range("M5").Value
        Set destRange = .Range("LivePaste")
    End With
    
    ' 明确指定源区域的父工作表
    Set srcRange = Sheets(sht).Range(Sheets(sht).Cells(row_start, col_start), _
                                    Sheets(sht).Cells(row_end, col_end))
    
    ' 调整目标区域大小与源区域匹配后再赋值
    destRange.Resize(srcRange.Rows.Count, srcRange.Columns.Count).Value = srcRange.Value
End Sub

关键优化说明 #

• 使用With Sheets("LIVE")统一限定参数读取的工作表，消除引用歧义。
• 明确给srcRange和destRange指定父对象，彻底解决跨工作表引用的语法问题。
• 通过Resize方法确保目标区域与源区域的行列数一致，避免因区域大小不匹配导致的赋值失败。
• 全程规避Select/Activate方法，既提升运行速度，又避免因活动表变化引发的意外错误。

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