设置单元格的名称等于相邻单元格的值

Question

我有两列数据：第一个字符串，如“name1”，“name2”，...，相邻列有数据，但我想重命名此列中的单元格等于第一列的字符串值。 E.g：

    1      2
A   name1  x
B   name2  y

因此，单元格A2应该达到name =“name1”。

Sub nameCells()
  Worksheets("Output").Cells(1, "A").Name = "David" 
End Sub

此代码将单元格命名为A1 =“David”，但我无法弄清楚如何复制单元格的值而不是硬编码的“David”。

Answer 1

Sub nameCells()
  Worksheets("Output").Cells(1, "B").Name = Worksheets("Output").Cells(1, "A").Value 
End Sub