Excel 基于单元格值重命名单元格引用

我对重命名文档的单元格引用感兴趣，以便在其他工作表中轻松执行计算。在下面的代码中，我试图将单元格Di命名为Ci中的文本和年份的串联。我正在使用以下代码，并收到一个错误：

未定义子或函数

有什么想法吗

Sub Rename()

Dim ws As Worksheet
Set ws = ThisWorkbook.ActiveSheet

For i = 1 To 50

    Dim rng As Range
    Dim str As String

    Set rng = Range("D" & i)
    rng.Name = Range("C" & i) & "_" & "2019"

Next i

End Sub

---

尝试使用您声明的工作表变量限定您的

范围

引用<代码>工作范围etc.

ws.Names.Add Name:=范围（“C”和“i”）和“”和“2019”，参考：=rng