如何根据单元格指定的工作表，复制指定单元格区域至目标工作表？

修正后的代码 #

Private Sub CommandButton1_Click()
    Dim targetSheetName As String
    Dim homeSheet As Worksheet
    Dim targetSheet As Worksheet
    
    ' 绑定HOME工作表，获取目标表名称
    Set homeSheet = ThisWorkbook.Worksheets("HOME")
    targetSheetName = homeSheet.Range("G1").Value
    
    ' 验证目标工作表是否存在
    On Error Resume Next
    Set targetSheet = ThisWorkbook.Worksheets(targetSheetName)
    On Error GoTo 0
    
    If targetSheet Is Nothing Then
        MsgBox "目标工作表不存在，请检查G1的选择！", vbExclamation
        Exit Sub
    End If
    
    ' 复制HOME表G4:G24区域到目标表F4起始位置
    homeSheet.Range("G4:G24").Copy
    targetSheet.Range("F4").PasteSpecial Paste:=xlPasteAll
    
    ' 写入指定文本到目标表A1
    targetSheet.Range("A1").Value = "TEXT"
    
    ' 清理剪贴板，消除粘贴提示
    Application.CutCopyMode = False
End Sub

原代码问题分析 #

• 未指定工作表的Range引用：原代码中Range("g1")未绑定HOME工作表，当激活其他表后，会错误引用当前激活表的G1单元格，导致目标表选择出错
• 冗余的Activate操作：多次调用Activate既没必要，还容易因工作表切换引发意外错误，直接通过工作表对象操作更稳定可靠
• PasteSpecial未明确参数：未指定粘贴类型可能导致格式或数据不符合预期，明确xlPasteAll可保留原区域的所有属性
• 缺少错误检查：未验证下拉选择的工作表是否存在，若选择无效值会导致代码崩溃

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