Excel VBA：将Cell添加到现有名称

Question

我试图通过VB将Cell添加到现有名称。

我最好的尝试看起来像这样：

Tabelle1.Names("delCase").RefersTo = Tabelle1.Names("delCase").RefersTo + ";" + Target.Address

但这会提示

  

Application-或objectdefined Error

Answer 1

您可以直接指定RefersTo（Range类型为RefersTo），而不是尝试将字符串分配给variant。稍微改变你的行：

Tabelle1.Names("delCase").RefersTo = Tabelle1.Range("delCase;" & Target.Address)

然后按预期工作。

如果您想要更优雅的方法，请尝试：

Tabelle1.Range("delCase;" & Target.Address).Name = "delCase"

Answer 2

尝试此操作（已完成测试）

Union(Tabelle1.Range("delCase"), Target).Name = "delCase"