excel - 将每个单元格的名称设置为其内容/值

我想创建一个宏，该宏选择单元格的矩形范围，并将每个单元格的名称设置为该单元格的值/内容。

根据到目前为止的想法，尽管cell.Name行出现了错误。

Public Sub NameCell()
Dim rng As Range
Dim cell As Range
Set rng = Range("A1:D1")
For Each cell In rng
    cell.Name = CStr(cell.Value)
Next
End Sub

最佳答案

这是你的意思吗？

Sub setVal()
    Range("A1:C6").Select
    Selection = "value"
End Sub