如何遍历单元格范围并在vba中使用单元格值命名单元格？

Question

我有以下代码并且它运行良好，但是，我想循环遍历一个单元格范围并使用单元格值命名该范围内的单元格：

Sub NameCell()
Range("A2").Name = Range("A2").Value
End Sub

Answer 1

尝试一下：

Sub NameMaker()
    For Each r In Selection
        With r
            .Name = .Value
        End With
    Next r
End Sub