Excel VBA：从非活动工作表复制行遇1004错误求助

先排查当前代码的问题 #

你的现有代码里，sheetname变量未显式声明类型，虽VBA会默认变体类型，但显式声明能规避潜在问题。另外，即便确认工作表存在，以下场景也可能触发1004错误：

• 目标工作表处于保护状态（允许编辑区域不包含你要复制的Range）
• Range引用的单元格存在合并，或引用格式不合法
• 工作表名称存在大小写不匹配（虽VBA默认不区分，但极端场景可能触发）

通用解决方案（无需切换活动工作表） #

下面是优化后的通用代码，覆盖整行复制、指定区域复制两种场景，同时处理常见错误诱因：

1. 指定单元格区域复制 #

Sub CopyRangeToSheet()
    Dim wb As Workbook
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim sourceRange As Range
    
    ' 绑定当前工作簿
    Set wb = ThisWorkbook
    ' 绑定源、目标工作表（替换为你的实际表名）
    Set sourceSheet = wb.Worksheets("sourcesheet")
    Set targetSheet = wb.Worksheets("targetsheet")
    
    ' 指定要复制的区域（可替换为任意合法Range，比如整行：sourceSheet.Rows(1)）
    Set sourceRange = sourceSheet.Range("A1:AK1")
    
    ' 临时解除源表保护（如果有）
    If sourceSheet.ProtectContents Then
        sourceSheet.Unprotect Password:="你的保护密码" ' 无密码则留空
    End If
    
    ' 直接复制到目标表指定位置（比如从A1开始粘贴，可自行调整）
    sourceRange.Copy Destination:=targetSheet.Range("A1")
    
    ' 恢复源表保护（如果之前解除过）
    If sourceSheet.ProtectContents = False Then
        sourceSheet.Protect Password:="你的保护密码"
    End If
End Sub

2. 整行复制的简化写法 #

如果要复制整行，直接使用Rows对象即可：

Sub CopyEntireRow()
    Dim wb As Workbook
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    
    Set wb = ThisWorkbook
    Set sourceSheet = wb.Worksheets("sourcesheet")
    Set targetSheet = wb.Worksheets("targetsheet")
    
    ' 复制第1行到目标表的第2行（可自行调整行号）
    sourceSheet.Rows(1).Copy Destination:=targetSheet.Rows(2)
End Sub

关键注意事项 #

• 始终使用显式对象绑定（比如wb.Worksheets而非直接Worksheets），避免因工作簿切换导致的对象引用错误
• 若工作表有保护，必须先解除再操作，完成后恢复保护
• 复制时直接指定Destination参数，无需单独写粘贴语句，既高效又避免依赖活动对象

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