如何依据其他工作表单元格值激活工作表及修改宏引用动态表名

让我来一步步帮你解决这两个Excel VBA问题：

核心思路是先读取存储工作表名称的单元格值，再用这个值定位并激活目标工作表，同时最好加入错误处理，避免因工作表不存在导致代码报错。

这里给你一个通用的示例代码（你可以根据实际需求修改单元格和工作表的位置）：

Sub ActivateSheetFromCellValue()
    ' 定义变量存储目标工作表名称
    Dim targetSheetName As String
    
    ' 读取指定单元格的值作为工作表名，这里假设名称存在于"Sheet1"的A1单元格
    targetSheetName = ThisWorkbook.Sheets("Sheet1").Range("A1").Value
    
    On Error Resume Next ' 开启错误捕获，处理工作表不存在的情况
    ' 激活目标工作表
    ThisWorkbook.Sheets(targetSheetName).Activate
    
    ' 检查是否触发错误
    If Err.Number <> 0 Then
        MsgBox "名为 '" & targetSheetName & "' 的工作表不存在，请检查单元格值！", vbExclamation
        On Error GoTo 0 ' 关闭错误捕获
        Exit Sub
    End If
    On Error GoTo 0 ' 关闭错误捕获
End Sub

关键点说明：

• 使用ThisWorkbook确保操作的是当前包含宏的工作簿，避免误操作其他打开的文件
• 错误处理部分能友好提示用户输入的工作表名无效，提升代码的健壮性

你原来的代码用了大量Select和Activate，这类操作不仅效率低，还容易因工作表切换出现问题。我会帮你简化代码，同时替换硬编码的工作表名为Add Course工作表C3单元格的值，同样加入错误处理：

修改后的代码如下：

Sub CopyCourseToTargetSheet()
    Dim sourceSheet As Worksheet
    Dim targetSheetName As String
    Dim targetSheet As Worksheet
    
    ' 定义源工作表对象
    Set sourceSheet = ThisWorkbook.Sheets("Add Course")
    ' 从C3单元格读取目标工作表名称
    targetSheetName = sourceSheet.Range("C3").Value
    
    On Error Resume Next
    ' 获取目标工作表对象
    Set targetSheet = ThisWorkbook.Sheets(targetSheetName)
    
    ' 检查目标工作表是否存在
    If targetSheet Is Nothing Then
        MsgBox "名为 '" & targetSheetName & "' 的工作表不存在，请检查C3单元格的值！", vbExclamation
        On Error GoTo 0
        Exit Sub
    End If
    On Error GoTo 0
    
    ' 直接复制粘贴（无需选中单元格，更高效稳定）
    sourceSheet.Range("C4").Copy Destination:=targetSheet.Range("C7")
    
    ' 如果你不需要复制格式，只需要值的话，可以用更高效的写法：
    ' targetSheet.Range("C7").Value = sourceSheet.Range("C4").Value
End Sub

修改亮点：

• 移除了所有Select/Activate操作，直接通过工作表对象操作单元格，代码更高效、更不易出错
• 用变量存储工作表对象，避免重复书写工作表名称，提升代码可读性
• 加入错误检查，当C3中的工作表名不存在时，会弹出提示框告知用户
• 提供了两种复制方式：带格式的Copy和仅复制值的直接赋值，你可以根据需求选择

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