Vba 将单元格名称设置为相邻单元格的值

我有两列数据：第一列字符串，如name1、name2，…，相邻列有数据，但我想将此列中的单元格重命名为第一列的字符串值。例如：

    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。

@pnuts谢谢您的第一个答案非常完美。我修正了这个问题来消除误导。价值应该是。。如果@ p坚果评论解决了你的问题，请考虑给IDKTHO发布的答案提供一个被接受的答案，编辑后反映问题的变化现在和P坚特的评论说的一样。接受有助于您在网站上获得宝贵声誉的答案，并使人们将来更有可能回答您的问题。仅供参考，使用用户界面有一种内置的方法可以做到这一点-由于问题发生了更改，我编辑了您的答案。如果您不同意，请随时回滚到原始版本。

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