Excel VBA动态指定工作表名粘贴区域报错，求问题排查

核心问题分析 #

报错的根本原因是对象变量未用Set关键字赋值：

• 在VBA中，Range属于对象类型，不能直接用=赋值，必须通过Set关键字绑定对象引用。原代码里xcopy = Range("j2:n2")和xpaste = Sheets(Analystname).Range("a2")直接赋值，导致变量未指向实际的Range对象，触发“对象变量未设置”错误。
• 变量声明Dim xcopy, xpaste As Range存在疏漏：仅xpaste被声明为Range类型，xcopy默认是Variant类型，需明确声明类型。

修复后的代码 #

Sub copynotes()
    Dim xcopy As Range, xpaste As Range ' 明确声明两个变量为Range类型
    Dim Analystname As String

    Analystname = Sheets("Admin").Range("g2").Value ' 显式取值，避免歧义
    Set xcopy = Range("j2:n2") ' 用Set赋值对象变量
    Set xpaste = Sheets(Analystname).Range("a2") ' 用Set赋值对象变量
    xcopy.Copy Destination:=xpaste
End Sub

额外优化建议 #

• 保留显式.Value：Analystname = Sheets("Admin").Range("g2").Value，虽然VBA默认取单元格值，但显式书写更清晰。
• 无需Select操作：原代码注释的Sheets(Analystname).Select完全多余，VBA直接通过对象引用操作更高效稳定。
• 可选错误捕获：若担心指定工作表不存在，可添加错误处理：

Sub copynotes()
    Dim xcopy As Range, xpaste As Range
    Dim Analystname As String

    On Error GoTo ErrorHandler
    Analystname = Sheets("Admin").Range("g2").Value
    Set xcopy = Range("j2:n2")
    Set xpaste = Sheets(Analystname).Range("a2")
    xcopy.Copy Destination:=xpaste
    Exit Sub

ErrorHandler:
    MsgBox "指定工作表不存在或其他错误：" & Err.Description, vbExclamation
End Sub

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