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

Question

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

就我到目前为止的想法而言，尽管 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

Answer 1

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

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

但请记住，您需要检查cell.Value命名范围的 是否有效（无空格等）。

Answer 2

这是你的意思吗？

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

Answer 3

要将一系列单元格替换为其值（从该范围内删除任何公式），您将使用类似这样的东西。

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