VBA中Range对象如何使用变量引用命名单元格区域

Range("cellName")的写法中，双引号会把cellName识别为固定的字符串值，VBA会直接去查找名为cellName的命名单元格/区域，不会读取你定义的同名变量里存储的实际名称，所以运行失败。如果直接写Range(variable)报错，大概率是变量里存的名称不是合法的单元格引用或有效命名范围。

把变量直接作为Range的参数传入即可，不要给变量加双引号，同时增加错误兼容避免无效名称导致运行中断：

Dim cellName As String
Dim rng As Range, cell As Range
Dim targetRng As Range

Set rng = Range("C5:C8")

For Each cell In rng
    cellName = Trim(cell.Value)
    ' 跳过空值单元格
    If Len(cellName) > 0 Then
        ' 容错：判断名称是否为有效命名范围
        On Error Resume Next
        Set targetRng = Worksheets("Sheet2").Range(cellName)
        On Error GoTo 0
        
        ' 匹配到有效命名范围时才写入值
        If Not targetRng Is Nothing Then
            targetRng.Value = "Good"
            Set targetRng = Nothing
        End If
    End If
Next cell

• VBA中双引号的作用是包裹固定字符串字面量，需要传递变量存储的动态值时，不能给变量名加双引号。
• 如果你的命名单元格是工作表级别的（仅在Sheet2内可见），上述写法可直接生效；如果是工作簿级别的命名范围，跨表访问也不需要额外加前缀。
• 加Trim处理是为了避免单元格内容前后带不可见空格，导致匹配命名范围失败。
• 错误捕获逻辑是为了防止C5:C8里出现不存在的名称、空值等异常内容时，直接弹出1004运行时错误中断循环。

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