移动单元格范围后如何让Excel宏实现动态更新？

问题背景 #

我有一个宏，会根据单元格V19的值更新W20:AH22区域的内容，原代码如下：

Sub TransferValues()

    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Volumes") 'Change "Sheet1" to the name of your sheet if different

    'Check if V19 equals "Base Case"
    If ws.Range("V19").Value = "Base Case" Then
        ws.Range("W20:AH22").Value = ws.Range("W39:AH41").Value
    ElseIf ws.Range("V19").Value = "High" Then
        ws.Range("W20:AH22").Value = ws.Range("W46:AH48").Value
    ElseIf ws.Range("V19").Value = "Low" Then
        ws.Range("W20:AH22").Value = ws.Range("W52:AH54").Value
    End If

End Sub

现在希望这个宏能像Excel公式一样，在相关单元格区域被移动后自动适配，不用手动修改代码里的单元格地址。

解决方案：使用Excel命名区域 #

最可靠的方法是用**命名区域（Named Ranges）**替代硬编码的单元格地址——命名区域会自动跟随单元格的移动、插入/删除行/列操作更新引用，完全符合你的需求。

步骤1：创建命名区域

选中对应的单元格/区域，在Excel顶部公式栏左侧的「名称框」输入自定义名称，回车确认即可。也可以通过「公式」选项卡→「定义名称」功能创建（支持添加备注说明）：

• 触发单元格V19 → 命名为 TriggerCell
• 目标区域W20:AH22 → 命名为 TargetRange
• Base Case数据源W39:AH41 → 命名为 BaseCaseSource
• High数据源W46:AH48 → 命名为 HighCaseSource
• Low数据源W52:AH54 → 命名为 LowCaseSource

步骤2：修改VBA代码

把原代码里的硬编码地址替换为命名区域，修改后的代码如下：

Sub TransferValues()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Volumes")
    
    '通过命名区域引用单元格/区域
    Select Case ws.Range("TriggerCell").Value
        Case "Base Case"
            ws.Range("TargetRange").Value = ws.Range("BaseCaseSource").Value
        Case "High"
            ws.Range("TargetRange").Value = ws.Range("HighCaseSource").Value
        Case "Low"
            ws.Range("TargetRange").Value = ws.Range("LowCaseSource").Value
    End Select
End Sub

额外说明

• 命名区域默认是工作簿级别的，如果你需要限定在特定工作表，创建时可以在「范围」下拉框选择对应工作表，引用时写成 ws.Range("工作表名!命名区域名") 即可。
• 如果你的数据是结构化表格（ListObject），也可以用表格的结构化引用（比如 Table1[BaseCase]），效果和命名区域类似，适合数据经常增删的场景。

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