excel - 根据单元格值重命名单元格引用

Question

我有兴趣重命名文档的单元格引用，以便在其他工作表中轻松执行计算。在下面的代码中，我试图将单元格 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

标签： excelvba