Excel 宏循环通过列分配单元格名称框

Question

我想用相邻单元格的值填充单元格的名称框。这个宏有效。

Sub NameBox()
   ' populates name box w/ value from adjacent cell
   ActiveCell.Name = ActiveCell.Offset(0, -1).Value
   ' steps down to next cell
   ActiveCell.Offset(1, 0).Select
End Sub

我分配一个击键并遍历列中的每个单元格，这很容易，但我认为可以通过循环来改进它。

我试过了。

Sub NameBoxLoop()
   Dim cel As Range
   For Each cel In Range("C:C").Cells
      If cel.Value <> "" Then
         cel.Name = cel.Offset(0, -1).Value
      End If
   Next cel
End Sub

但我得到以下调试错误

cel.Name = 应用程序定义或对象定义的错误

循环逻辑看起来是正确的，如果我用 cel.Value 替换变量 cel.Name 循环将完成。

搜索没有提供 cel.Name 错误的答案。感谢您提供解决此错误的任何帮助。

Answer 1

您的公式有效。但也许你的环境不是最佳的，因为你没有纠错 - 并且名称有限制。

所以我猜你在 B 列中没有值，或者 B 列中的值已经被用作其他单元格的名称。

在这两种情况下，您的循环都会中断。

无论如何都要尝试循环，但请考虑对您的代码进行错误证明：

Sub NameBoxLoop()
   On Error Resume Next
   Dim cel As Range
   For Each cel In Range("C:C").Cells
      If cel.Value <> "" Then
         cel.Name = cel.Offset(0, -1).Value
      End If
   Next cel
end sub

编辑：

作为建议，您可能需要考虑使用 Names 列表。

这是一个来自 excel-help 的示例：

ActiveWorkbook.Names.Add Name:="test", RefersTo:="=sheet1!$a$1:$c$20"

还有一些对象成员：

• 添加
• 项目
• 计数