需要使用VBA在Excel中更改多个单元名称

Question

我已在excel中创建了多个单元名称。我想根据它们所处的表单为每个名称添加前缀。我目前正在使用这个VBA代码：

  Sub RenameCells() Dim n As Name
  For Each n In Sheet1.Names
      n.Name = "NLOC1_" & n.Name
  Next n 
  End Sub

但是，它似乎并没有真正改变工作表中的名称。我没有错误，所以我不确定什么是错的，为什么一切都没有改变。

Answer 1

名称似乎在Workbook级别，因此您需要使用：

Sub RenameCells() Dim n As Name
  For Each n In ActiveWorkbook.Names
      n.Name = n.RefersToRange.Worksheet.Name & "_" & n.Name
  Next n 
End Sub