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

---

要用单元格区域的值替换单元格区域（从区域中删除任何公式），可以使用如下方法

Public Sub NameCell()
    Dim rng As Range
    Set rng = Range("A1:D1")
    rng.Value = rng.Value
End Sub

---

这就是你的意思吗

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

---

我相信这可能对你有用，除非我也误解了这个问题

Dim r As Range
Dim cell As Range

Set r = Sheet1.UsedRange

For Each cell In r
    Sheet1.Names.Add Name:=cell.Value, RefersTo:=cell
Next

---

但是，请记住，您需要检查

单元格.Value

对于指定范围是否有效（无空格等）。

不是每段文本都是a。这与什么有关？这与什么有关？啊，我误解了这个问题。是的，这不正是我要找的。谢谢你