Excel VBA问题：如何基于用户输入的工作表名和单元格地址选中目标单元格

问题分析 #

你现有代码已能从Cells to Copy工作表的A2、C2单元格读取目标工作表名和单元格地址，但缺少核心的选中逻辑，同时存在变量名不一致的小问题，需要补充逻辑并优化代码健壮性。

修正后的完整代码 #

Sub SelectCellBasedonUserInput()
    Dim wksCellstoCopy As Worksheet
    Dim CopyCell As String
    Dim CopyWks As String
    
    ' 引用存储输入信息的工作表
    Set wksCellstoCopy = ThisWorkbook.Worksheets("Cells to Copy")
    
    ' 读取工作表名和单元格地址（统一变量名，避免未声明错误）
    CopyWks = wksCellstoCopy.Range("A2").Value
    CopyCell = wksCellstoCopy.Range("C2").Value
    
    ' 错误处理：捕获工作表不存在或单元格地址无效的异常
    On Error Resume Next
    ' 先激活目标工作表，Select操作必须在激活的工作表上执行
    ThisWorkbook.Worksheets(CopyWks).Activate
    If Err.Number <> 0 Then
        MsgBox "错误：指定的工作表不存在 → " & CopyWks, vbExclamation
        Exit Sub
    End If
    
    ' 选中目标单元格
    ThisWorkbook.Worksheets(CopyWks).Range(CopyCell).Select
    If Err.Number <> 0 Then
        MsgBox "错误：指定的单元格地址无效 → " & CopyCell, vbExclamation
        Exit Sub
    End If
    On Error GoTo 0
End Sub

关键说明 #

• 变量名统一：原代码中声明了CopyWks但使用了未声明的copyworksheet，修正后保持变量名一致，避免Option Explicit模式下的编译错误。
• 激活工作表：Select方法只能作用于当前激活的工作表，因此必须先调用Activate激活目标工作表。
• 错误处理：添加异常捕获，避免因工作表不存在、单元格地址格式错误导致程序崩溃，同时给用户明确的错误提示。

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