在Excel中用VBA重命名集合中的项目键

我有一个集合如下：

Set NodeColl = New Collection NodeColl.Add "Node 1", "Node 1" NodeColl.Add "Node 2", "Node 2" NodeColl.Add "Node 3", "Node 3" 

我想知道是否有一个简单的方法来重新命名的select性项目的关键，而不会影响其他项目或集合本身。 例如，像NodeColl.Items（“节点1”）。Key =“一些string”

Answer 1

不，你需要手动添加和删除;

 with NodeColl .add .Item("Node 2"), "New Key", , "Node 2" .remove "Node 2" end with 

或者使用允许的Dictionary ，通过添加对Microsoft Scripting Runtime的引用或;

 dim NodeColl as object: Set NodeColl = createobject("Scripting.dictionary") NodeColl.add "key for Node 1", "Node 1" NodeColl.add "key for Node 2", "Node 2" NodeColl.add "key for Node 3", "Node 3" '//direct rename allowed; NodeColl.Key("key for Node 2") = "New Key here"